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ABSTRACT 


The  Multi-Ungual  and  Multi-Model  Database  System  (MDBS),  at  the  Naval 
Postgraduate  School,  is  the  only  database  system  in  which  five  different  database  model 
interfaces  operate  on  a  single  computer  system.  The  purpose  of  the  MDBS  is  to  prove  that 
multiple  database  models  can  coexist  and  share  data  within  a  single  computer  system.  The 
MDBS  provides  a  platform  in  which  diverse  database  models  can  share  data,  via  access  to 
other  models’  base  data,  stored  in  the  MDBS  common  format  The  problem  was  that  a 
Functional  database  model  had  not  previously  been  implemented  on  the  MDBS.  The  goal 
of  this  thesis  was  to  provide  a  Functo-.al/DAPLEX  interface  for  the  MDBS. 

The  approach  was  to  design  and  implement  a  set  of  programs  to  encapsulate  the 
Functional/D APLEX  language  as  introduced  by  D.W  Shipman  in  1981.  It  is  imperative 
that  the  interface  maintain  the  look,  feel  and  characteristics  of  the  Functional  data  model. 

The  result  is  a  set  of  programs,  written  in  C,  which  implement  a  Functional/DAPLEX 
interface,  thus  a  sixth  interface,  for  the  MDBS.  The  programs  parse  DAPLEX  data 
definition  language  and  data  manipulation  language  constructs,  convert  them  to  an  MDBS 
common  format,  store  the  data  with  other  models’  base  data  and  can  reconvert  MDBS 
common  data  back  to  a  Functional  form. 
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I.  THE  INTRODUCTION 


A.  THE  MOTIVATION 

The  amount  of  data  being  stored  by  the  United  States  military  continues  to  grow.  The 
expansion  is  diverse  in  both  format  and  content.  The  content  of  the  data  may  range  from 
personnel  records  to  supplies  to  representations  of  battles  to  methods  of  repair.  The  storage 
medium  used  to  retain  the  information  is  equally  diverse  utilizing  paper,  microfiche, 
photographs,  electronic  media  and  very  often  only  within  the  mind  of  an  individual.  The 
current  trend  in  information  management  is  to  store  as  much  data  as  is  possible, 
electronically.  Data  stored  in  electronic  format  requires  significantly  less  physical  storage 
space  than  its  paper  or  plastic  counterparts.  What  methods  do  we  use  to  store  the 
information?  Personnel  records  are  often  stored  in  a  relational  database  format  consisting 
of  fields  and  tuples.  Supplies  may  be  stored  in  a  network  database  format  with  pointers  and 
multi-valued  attributes.  Battle  simulation  information  may  be  stored  in  an  object  oriented 
format  utilizing  methods  and  inheritance.  To  store  and  retrieve  the  data  effectively  and 
efficiently  is  the  task  of  a  database  management  system. 

As  each  of  the  terms  associated  with  its  corresponding  electronic  format  is  varied  so 
arc  the  computer  languages  used  by  the  database  management  systems  to  process  the 
information.  Each  of  the  languages  has  its  individual  advantages  based  on  its  intended 
usage.  Many  have  been  implemented  for  a  long  time  and  contain  vast  amounts  of  data.  To 
convert  them  to  a  newer  and  more  efficient  language  would  require  substantial  financial 
and  human  resources.  In  this  era  of  budget  reductions  and  personnel  drawdowns,  neither  is 
readily  available.  The  databases  are  normally  segregated  requiring  diverse  commands  often 
incomprehensible  to  other  database  languages  (Hsia92a).  This  is  similar  to  having  an 
economist  and  a  physicist  trying  to  discuss  their  area  of  expertise.  While  both  may  use 
English,  the  terms  and  idioms  used  will  probably  not  be  understood  by  the  other. 
Significant  amounts  of  time  and  money  have  been  invested  into  the  capabilities  of  these 
systems  as  well  as  training  the  personnel  to  use  them.  Unfortunately  the  skills  and 
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knowledge  of  one  system  do  not  normally  transfer  to  those  of  another  system.  Not  only  is 
this  true  of  the  human  users,  it  is  also  true  of  the  computer  systems  that  must  interact  with 
each  other.  This  is  the  main  problem  of  today’s  heterogeneous  database  storage.  Since  the 
diverse  models  cannot  communicate  directly  with  each  other,  managers  are  required  to 
duplicate  the  data  in  multiple  systems.  There  are  other  problems  associated  with  this  type 
of  approach  to  data  management  too,  specifically,  data  redundancy  (multiple  space  for 
same  data)  and  accuracy  (ensuring  updates  are  promulgated  to  every  system).  As  a  direct 
result  of  the  data  redundancy  and  the  lack  of  inter-model  communications,  data 
inconsistencies  are  bound  to  occur,  sometimes  with  disastrous  results  (Hsia92b). 

B.  THE  BACKGROUND 

There  are  different  approaches  to  solving  this  problem.  One  method  may  be  to 
require  the  users  to  become  proficient  in  all  the  languages  necessary  to  access  the  data. 
They  would  then  have  to  put  any  interrelated  data  together  via  their  own  methods.  This 
would  require  a  huge  undertaking  to  train  all  current  users  as  well  as  training  each  new  user 
in  multiple  languages.  It  does  not  solve  the  problem  of  inter-model  communications,  data 
redundancy  and  inconsistent  data.  Another  method  could  be  to  require  all  data  to  be  in  a 
specific  format  so  that  the  users  would  only  be  required  to  know  one  language.  This  method 
would  require  a  phenomenal  amount  of  effort  and  programming  to  change  over  all  data, 
programs  and  retrain  the  users  to  become  proficient  in  this  new  database  language.  In 
addition,  as  new  database  methods  are  developed,  this  same  undertaking  must  be  done  to 
use  the  new  database  model.  In  this  time  of  military  budget  reductions  and  fiscal  austerity, 
it  is  probably  not  a  viable  option.  Another  option  could  be  to  allow  the  user  to  continue 
operating  as  normal  and  let  the  computer  do  the  required  translations. 

Allowing  the  computer  to  perform  the  translations  would  permit  the  users  to  continue 
using  the  data  language  they  are  trained  in  and  would  require  no  changes  to  previously 
written  interface  programs.  The  translations  could  be  accomplished  in  one  of  two  ways. 
First  keep  the  data  in  the  native  language  format  and  let  each  language  translate  into  and 
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out  of  the  other  languages.  The  problem  with  this  approach  is  the  number  of  translation 

routines  grows  at  a  rate  of  0(n2).  With  a  very  small  number  of  database  languages,  this 
could  be  an  acceptable  method.  But  how  small?  In  a  system  with  only  two  database 
languages,  to  add  a  third  language  would  require  eight  new  translation  routines  (one  in¬ 
translation  routine  and  one  out-translation  routine  for  each  of  the  old  languages  to  the  new 
language  and  then  two  in-translation  and  two  out-translation  routines  for  the  new  language 
to  the  old  languages).  As  with  the  user  learning  multiple  languages,  the  data  sharing  and 
intercommunications  would  be  severely  limited.  For  example,  the  computer  would  have  to 
know  in  advance  what  language  each  piece  of  data  was  stored  in  so  that  it  could  issue  the 
appropriate  retrieval  command  (Hsia92a). 

A  second  alternative  is  to  use  one  common  language  for  storage  of  the  data  and 
provide  one  set  of  translators  for  each  language.  The  disadvantages  of  this  approach  are  the 
requirement  to  initially  translate  all  the  current  data  into  the  storage  data  format  and  finding 
a  data  model  that  is  sufficiently  robust  to  support  such  an  undertaking.  The  advantages  of 
this  approach  are  the  initial  translation  is  a  one  time  requirement  and  the  number  of 
translation  routines  required  for  any  new  language  is  two  regardless  of  the  number  of  other 
languages  already  present.  For  any  new  language  added  to  the  system  the  operator  must 
design  one  in-translation  routine  and  one  out-translation  routine  from  the  new  language  to 
the  storage  or  kernel  data  language.  The  users  are  not  required  to  learn  any  new  language 
constructs  or  requirements  and  previously  written  programs  do  not  have  to  be  modified  to 
allow  access  to  any  of  the  stored  data.  The  required  data  storage  area  will  be  the  sum  of  all 
these  individual  computers  placed  into  one  computer  system  (Hsia91). 

One  database  machine,  known  as  the  Multi-backend  Database  System  (MDBS),  is 
at  the  Naval  Postgraduate  School’s  Laboratory  for  Database  Systems  Research.  This 
system  which  started  development  in  the  early  1980’s  (Hsia91),  is  fundamentally  based 
upon  the  Database  Computer  (DBC)  as  described  in  (Bane79).  This  system  not  only 
addresses  a  solution  to  the  problem  of  a  multilingual  and  multimodel  database  systems,  but 
is  also  capable  of  processing  large  amounts  of  data  efficiently  through  parallel  processing 
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(Hall89).  The  MDBS  system  has  shown  that  it  is  possible  for  these  data  languages  to 
coexist  on  a  single  system,  interact  compatibly,  and  even  share  data  without  data 
duplication.  The  user  can  use  whatever  database  language  and  format  that  is  most 
convenient  or  fits  the  situation.  The  database  language  can  range  from  early  models  such 
as  hierarchical  to  modem  languages  such  as  object  oriented  data  models.  Efforts  have  been 
undertaken  to  show  that  each  of  the  major  groups  of  database  models  can  be  implemented. 
One  rapidly  growing  database  related  field,  not  yet  implemented  on  the  MDBS,  is  Artificial 
Intelligence  or  AI.  AI  programs  often  consist  of  many  simple  observations  and  facts  linked 
by  a  set  of  rules  and  stored  as  a  large  database  of  information.  Common  forms  of  AI 
language  constructs  are  analogous  to  the  functional  data  model.  In  the  functional  data 
model,  the  data  are  entered  in  a  mathematical  form  similar  to: 


m  =  y 

where  each  of  the  variables,  f,  x  and  y,  are  not  limited  to  solely  numeric  values  and 
functions.  The  name  functional  is  misleading  and  constructs  are  more  aptly  associated  with 
mathematical  relations  than  functions.  In  a  function  the  value  of  x  can  be  mapped  to  one 
and  only  one  value  y.  With  the  functional  data  model  this  is  not  the  case.  This  can  be 
illustrated  as  follows.  Suppose  a  user  entered  into  the  database  the  fact 

son(Adam)  =  Cain 

which  is  read  as  “the  son  of  Adam  is  Cain”.  It  is  also  possible  and  correct  to  enter: 

son(Adam )  -Abel 

or  “the  son  of  Adam  is  Abel”.  If  a  user  were  to  query  the  system  as  to  who  is  the  son  of 
Adam,  the  response  should  be  the  set  {Cain,  Abel}.  As  a  mathematical  relation  this  is 
acceptable,  but  as  a  mathematical  function  it  is  not.  Unfortunately  the  name  relational  data 
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model  already  exists  and  so  the  name  functional  data  model  is  used  for  these  type  of 
expressions. 

The  concept  of  an  AI  system  is  to  gather  information  through  experience  and  base 
future  queries  and  decisions  based  on  previous  inputs,  very  similar  to  the  way  most  humans 
make  decisions.  As  with  die  human  intelligence,  AI  requires  the  storage  of  huge  amounts 
of  base  data  as  well  as  the  rules  to  follow  in  making  intelligent  choices.  Applications  of  AI 
are  wide  and  varied.  It  is  used  in  Abstract  Object  Recognition,  Fuzzy  Logic,  Intelligent 
Decision  Making,  Computer  Aided  Instruction,  Expert  Systems  and  many  other  areas.  For 
demonstration  purposes,  this  research  designed  and  implemented  an  Expert  System  model. 
An  Expert  System  is  a  program  designed  to  allow  the  computer  to  act  as  an  expert  in  a 
specific  area.  Data  is  initially  entered  based  on  human  expert  observation  and  analysis. 
Over  time,  through  user  inputs  and  feedback,  the  computer  will  be  able  to  provide  insight 
and  suggestions  based  on  previous  conditions  and  results.  To  make  effective  use  of  this 
data,  they  must  be  stored  and  retrieved  accurately,  quickly  and  efficiently.  This  type  of 
storage  and  retrieval  requirements  are  the  purview  of  a  database  management  system.  The 
system  that  best  fills  this  void  is  the  Naval  Postgraduate  School’s  MDBS. 

C.  THE  OBJECTIVE 

The  objective  of  this  thesis  is  to  show  that  a  functional  data  model  interface  can  be 
made  compatible  with  the  MDBS  and  the  other  data  models  implemented  on  it.  We  selected 
a  DAPLEX  type  data  language  based  on  the  description  by  (ShipS  1)  to  implement  the 
functional  data  model  in  the  MDBS  (Lim86).  Using  a  DAPLEX  data  language  structure, 
we  will  show  that  it  is  possible  to  construct  an  AI  interface  which  does  coexist  and  interact 
with  other  data  models  on  a  single  system.  To  demonstrate  that  it  is  compatible  with  the 
MDBS  kernel  data  language  we  selected  some  representative  primitive  language  constructs 
from  which  other  more  complex  language  constructs  may  be  implemented.  To  this  end  we 
have  created  a  small  model  of  an  expert  system  which  exercises  the  necessary  language 
functionality. 
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II.  THE  MDBS  SYSTEM 

A.  THE  BACKGROUND  AND  DESIGN 

Conceptually  the  requirements  of  the  MDBS  are  two  fold.  The  first  essential 
requirement  is  to  create  an  environment  in  which  multiple  data  languages  can  compatibly 
coexist,  and  interact  within  a  single  computer  operating  system.  Access  to  many  different 
database  languages  on  a  single  computer  is  not  uncommon.  It  is  similar  to  finding  different 
word  processing  software  on  a  single  computer.  What  is  unique  in  the  MDBS  is  that  the 
different  database  languages  are  stored  and  maintained  utilizing  a  single,  common  data 
format  (see  Figure  1).  The  obvious  advantage  of  such  a  system,  is  the  reduction  of 
duplicated  data  throughout  the  various  databases.  This  was  previously  necessitated  by  the 
requirement  to  store  the  data,  both  base  and  meta  data,  in  a  format  understandable  by  the 
individual  database  languages.  If  the  data  are  stored  in  the  same  format  for  all  the  languages 
it  should  be  relatively  easy,  regardless  of  the  interface  language  used,  to  be  able  to  retrieve 
and  present  the  data  in  manner  consistent  with  the  interface  language.  For  example,  within 
the  MDBS  it  is  possible  to  create  and  input  database  information  utilizing  the  hierarchical 
language  constructs.  The  behavior  of  the  database  and  the  transaction  commands  are  all 
consistent  with  the  DL/I  language  of  a  hierarchical  database.  Another  user  can  write 
transactions,  update  the  same  hierarchical  database  and  output  any  queries  in  a  relational 
format  using  SQL  constructs.  The  second  user  merely  needs  to  inform  the  MDBS  at  the 
stan  of  the  session  that  the  relational  format  is  going  to  be  used.  As  far  as  the  first  user  is 
concerned  the  database  is  a  hierarchical  data  model  while  the  second  user  is  convinced  that 
the  database  is  a  relational  data  model.  Programs  do  not  have  to  be  modified  and  users  do 
not  have  to  be  retrained. 

The  second  central  requirement  of  the  MDBS  is  to  be  able  to  operate  using  very  large 
databases  without  significant  performance  degradation.  If  we  are  to  integrate  multiple 
heterogeneous  databases  as  proposed  the  amount  of  base  data  can  become  voluminous. 
This  feat  is  accomplished  utilizing  multiple  off  the  shelf  computer  systems  working  in 
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Afunctional 
database  user 


A  relational 
database  user 


Figure  1  The  Multimodel,  Multilingual  and  Cross-Model  Capability 


parallel  (see  Figure  2).  In  the  MDBS  these  are  known  as  backend  systems.  The  use  of 

Meta  data  disk 


Paging  disk 

Figure  2  The  Multibackend  Database  Supercomputer  (MDBS) 


multiple  backend  systems  accommodates  the  expansion  of  the  databases  by  providing  a 
large  physical  repository  in  which  to  store  the  data  (Meek93).  Using  off  the  shelf 
technology  ensures  that  the  MDBS  does  not  need  a  specialized  computer  system,  while 
keeping  the  cost  down  and  the  availability  high.  The  parallel  aspect  of  the  backends 
provides  improved  response  and  speed  in  data  retrieval  by  having  each  system  working 
simultaneously  and  independently  to  complete  the  transaction  (Hall89).  Consequently,  the 


8 


base  data  can  be  distributed  among  the  various  backends,  thereby  minimizing  the  search 
space  of  each  individual  backend  system.  As  a  transaction  is  generated,  the  query  is 
distributed  to  each  of  the  backend  systems.  The  query  is  then  executed  simultaneously  on 
each  backend  system  and  the  information  is  passed  via  the  network  to  the  frontend 
controller.  One  small  draw  back  to  the  multi-backend  system  is  the  need  to  duplicate  the 
meta-data.  However,  when  compared  to  the  storage  requirements  for  base  data,  the  stora 
requirements  for  die  meta-data  is  an  order  of  magnitude  smaller  in  a  typical  databa 
application.  This  data  are  retrieved,  processed  and  stored  in  a  variety  of  formats. 

Regardless  of  the  system  used,  the  amount  of  base  data  in  the  database  system  will 
continue  to  grow.  As  the  storage  requirements  near  capacity,  if  no  action  is  taken,  the  user 
will  note  a  degradation  in  response  time  and  possibly  the  loss  of  critical  data.  The 
traditional  response  for  normal  database  management  systems  would  be  the  purchase  of  a 
new  larger  and,  hopefully,  faster  computer  system.  The  cost  of  purchasing  such  systems 
and  the  resulting  disruption  while  switching  (not  considering  that  it  may  require  a  new 
database  system)  is  substantial.  Additionally,  although  it  may  be  possible  to  purchase  a 
larger  system  it  may  not  be  possible  to  acquire  a  faster  computer  system.  The  results  will 
be  a  negligible  increase  in  response  time  even  though  storage  capacity  is  increased.  For  the 
MDBS  it  is  a  relatively  simple  matter  to  improve  response  and/or  capacity.  The  user  needs 
only  to  backup  the  current  database  (a  normal  undertaking  in  modern  computer  systems), 
add  another  readily  available  backend  system  and  then  restore  the  database  from  the 
backup.  The  system  will  automatically  redistribute  the  base  data  during  the  restoration.  The 
results  will  be  a  significant  increase  in  the  overall  response  time  and  a  quantum  increase  in 
the  storage  capacity  of  the  MDBS.  The  cost  and  disruption  in  the  MDBS  is  minimal. 
Previous  studies  have  shown  that  doubling  the  number  of  backends  can  nearly  double  both 
the  speed  and  capacity  of  the  MDBS  (Hall89). 

Another  advantage  of  the  MDBS  multi-system  set  up  is  in  communications.  Again, 
the  MDBS  makes  use  of  no  specialized  equipment  and  is  therefore  more  readily  compatible 
with  changing  technology.  The  frontend  controller  communicates  with  the  backends  via  a 
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standard  LAN  setup.  The  LAN  is  supported  by  standard  ethemet  equipment  employing 
TCP/IP  protocol  with  UDP  for  improved  communications  reliability.  This  is  discussed  in 
greater  detail  in  other  documents  (Watk93).  The  extensive  use  of  off-the-shelf  technology 
makes  the  MDBS  financially  attractive  when  taking  into  account  availability, 
supportability,  reliability  and  maintainability.  These  four  areas  traditionally  account  for  the 
lion’s  share  of  the  cost  of  owning  and  operating  any  database  system. 

B,  INTERPROCESS  COMMUNICATIONS 

Communication  within  the  MDBS  are  preformed  via  the  interaction  of  twelve 
separate  processes  (see  Figure  3).  Six  processes  are  used  for  the  controller  or  fr  on  tend  and 
six  for  the  database  storage  area  or  backend.  The  process  names  may  not  be  indicative  of 
the  functionality  of  the  procedures  contained.  The  names  have  other  historical  significance 
and  are  retained  in  the  interest  of  maintaining  compatibility.  The  six  controller  processes 
arc  controller  get  (CGET),  controller  put  (CPUT),  test  interface  (TT),  request  processing 
(REQP),  insert-information  generation  (IIG),  and  post  processing  (PP).  The  CPUT  process 
is  responsible  for  the  sending  of  messages  across  the  network  to  the  backend  system 
processes.  The  CGET  process  is  responsible  for  the  receipt  of  messages  from  the  backend. 
The  TI  process  handles  all  the  user  interface  processing.  The  TI  which  contains  the 
translation  algorithms  for  each  of  the  language  interfaces,  is  responsible  for  interfacing 
with  the  user  and  selecting  the  appropriate  interface  displays  based  on  the  users  request.  All 
translations  to  and  from  the  kernel  language  are  performed  within  the  TI.  The  REQP 
process  parses  the  kernel  translated  transactions  ensuring  the  query  is  in  a  kernel  acceptable 
format  and  syntax  before  it  is  sent  to  the  backend.  The  IIG  process  assists  with  the  setup 
and  distribution  of  the  base  data  for  the  backends.  The  distribution  is  an  integral  function 
when  dealing  with  large  databases  to  ensure  improved  retrieval  performance  from  the 
parallel  processing  completed  by  the  backend  systems.  The  PP  process  properly  ensures  a 
consistent  format  for  the  data  received  from  the  backend.  This  data  must  again  be  provided 
to  and  processed  by  the  TI  to  ensure  the  output  is  correct  and  in  the  user  selected  format. 
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Figure  3  MDBS  Communication  Channels 
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The  six  btckend  processes  are  backend  get  (BGET),  backend  put  (BPUT),  record 
processing  (RECP),  concurrency  control  (CC),  directory  management  (DM),  and  disk 
input/output  (DIO).  All  six  processes  run  independently  on  each  backend  machine 
participating  in  MDBS.  The  BPUT  and  the  BGET  perform  the  same  functions  for  the 
backends  as  the  CPUT  and  CGET,  respectively,  performed  for  the  frontend.  The  RECP 
process  is  responsible  for  the  processing  of  the  data  records.  The  CC  process  ensures  data 
(record)  integrity  is  maintained  during  the  processing  of  transactions.  The  data  in  this  case 
includes  both  the  meta-data  and  the  base  data.  To  accomplish  this  for  the  base  data  the  CC 
must  communicate  with  the  RECP.  The  DM  process  and  the  DIO  process  are  responsible 
for  the  actual  reading  and  writing  of  the  data  to  the  backend  storage  units.  The  DM  handles 
the  meta-data  and  works  with  the  meta-data  disks  only  while  the  DIO  performs  similar 
functions  working  only  with  the  much  larger  base  data  and  associated  drives.  The  DIO 
communicates  only  with  the  RECP. 

The  majority  of  our  research  dealt  with  the  TI  process.  To  add  an  additional  module 
to  the  MDBS,  it  is  essential  to  understand  the  overall  inter-process  communications  to 
ensure  the  proper  functionality  of  the  data  model.  Each  process  has  its  own  unique  interface 
requirements  which,  if  not  met,  may  result  in  failure  of  the  whole  system. 
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III.  THE  MODEL  LANGUAGE  INTERFACE 


As  stated  earlier,  in  the  MDBS  the  CNTRL  section  contains  all  the  processes  which 
are  necessary  for  die  frontend  system  to  establish  an  interface  between  the  user  and  the  data 
which  are  stored  in  backend  computers.  The  process  with  the  CNTRL  section  which 
contains  the  specific  user  interface  commands  is  the  Test  Interface  or  TI.  The  T1  is  actually 
a  collection  of  multiple  processes  and  programs  compiled  as  libraries  and  then  joined 
together  into  a  single  entity.  A  portion  of  this  collection  of  libraries  are  the  specific 
interpreters  and  translation  routines  for  each  of  multiple  languages  compatible  with  MDBS. 
The  source  code  for  each  translator  is  located  in  the  LANGIF/SRC  subdirectory  of  the  Tl 
directory. 

A.  STRUCTURE  OF  THE  MODEL  LANGUAGE  INTERFACE 

There  are  six  subareas  within  SRC:  The  COM  subdirectory  which  maintains  some 
common  routines  shared  by  all  the  interface  languages,  the  SQL  subdirectory  for  the 
relational  database  model,  the  DML  subdirectory  for  the  network  database  model,  the  DL1 
subdirectory  for  the  hierarchical  database  model,  the  OBJ  subdirectory  for  the  object 
oriented  database  model  and  the  DAP  subdirectory  for  functional  database  model.  The 
names  are  abbreviations  for  the  data  manipulation  languages  used  for  the  individual 
database  models.  Each  subdirectory  of  a  specific  database  model  is  further  divided  into  an 
allocation  or  ALLOC  area,  the  language  interface  layer  or  LIL  area,  the  kernel  mapping 
system  or  KMS  area,  the  kernel  controller  or  KC  area  and  the  kernel  formatting  system  or 
KFS  area  [Figure  4].  The  purpose  behind  the  division  into  the  subareas  of  ALLOC,  LiL, 
KMS,  KC  and  KFS  is  to  facilitate  software  maintenance  by  dividing  the  programs  into 
functional  areas  (Meek93). 

B.  THE  LANGUAGE  INTERFACE  LAYER  SECTION 

The  ALLOC  area  contains  the  code  for  the  allocation  of  memory  for  model  specific 
pointer  types.  Calls  to  the  ALLOC  area  routinely  are  made  from  all  the  other  areas  within 
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the  module.  Inter-model  common  pointers  are  contained  in  the  COM  directory.  The  LtL 
area  contains  the  code  necessary  for  direct  user  interfaces  and  presentations  with  the 
exception  of  the  responses  to  database  queries.  These  interfaces  include  asking  the  user  for 
the  module  to  be  used  (i.e.  attribute  based,  relational  based,  functional  based,  etc.),  requests 
for  file  name  and  obtaining  queries  from  the  user.  What  the  user  sees  on  the  screen  is 
provided  by  the  LIL,  except  for  the  actual  database  transaction  response  displays. 

C.  THE  KERNEL  MAPPING  SYSTEM  SECTION 

The  KMS  is  the  heart  of  the  database  module  (Kloe85).  It  is  responsible  for  ensuring 
the  information  passed  from  the  LIL  is  semantically  and  syntactically  correct,  parsing  of 
the  information,  ensuring  the  data  is  consistent  with  previous  inputs  (e.g.  the  user  cannot 
declare  a  function  for  en  entity  that  has  not  yet  been  declared),  translation  of  the 
information  from  the  user  input  language  to  the  kernel  based  language  and  passing  the 
translated  information  to  the  KC.  Except  during  retrievals,  the  KMS  receives  replies  from 

M/LI 


LIL  :  Language  Interface  Layer 
KMS  :  Kernel  Mapping  System 
KFS  :  Kernel  Formatting  System 
KC  :  Kernel  Controller 
M/LI  :  Model/Language  Interface 
KDS  :  Kernel  Database  System 
Figure  4  The  MDBS  Model  Interface  Layer 


the  KC  and  passes  the  replies  back  to  the  LIL. 


14 


D.  THE  KERNEL  CONTROLLER  SECTION 

The  KC  handles  all  interfaces  to  the  backend  system.  It  sends  the  kernel  formatted 
queries  to  the  backend  Kernel  Data  System  (KDS)  and  ensures  the  responses  from  the  KDS 
have  been  processed  without  problem.  If  an  error  is  detected  in  the  backend  the  KDS  passes 
that  information  to  the  KC  which  will  conduct  the  appropriate  exception  handling 
procedures.  During  retrievals  the  KC  places  the  KDS  responses  into  the  proper  structures 
and  passes  the  data  and  control  to  the  KFS. 

E.  THE  KERNEL  FORMATTING  SECTION 

The  KFS  is  responsible  for  the  receipt  and  acknowledgment  of  retrieved  responses 
from  the  backend  via  the  KC.  The  data  received  are  in  a  stream  format.  The  KFS  examines 
the  stream,  determines  whether  the  information  is  an  attribute  name  or  value,  converts  the 
data  into  an  acceptable  format  for  the  user  selected  database  model  and  then  displays  it  to 
the  user.  Control  is  passed  back  to  the  LIL  and  the  cycle  is  complete. 

We  have  shown  there  are  many  similarities  between  the  various  database  models 
With  this  commonality  there  are  numerous  structures  and  variables  that  are  shared  by  all 
the  database  models.  These  structures  and  variables  are  contained  in  the  LANGIF 
subdirectory  in  a  File  called  LICOMMDATA.H  (for  Language  Interface  COMMon 
DATA).  The  extensive  use  of  union  structures  make  it  possible  for  each  of  the  database 
models  to  access  other  models  base  data.  Two  important  types  used  by  each  module  are  the 
current  database  info  or  CURR_DB_INFO  arid  the  language  interface  info  or  Ll_INFO. 
Both  arc  unions  defined  in  the  LICOMMDATA.H. 

F.  COMMON  USE  STRUCTURES 

CURR_DB_INFO  is  a  structure  consisting  of  the  name  of  the  user  (CDI_DBNAME), 
a  database  node  for  the  specific  module  (CDI_DB),  a  group  node  (CDI_GRP)  which 
indicates  how  the  attributes  for  a  particular  module  are  grouped  (e.g.  relations  for  the 
relational  model),  an  attribute  qode  (CDI_ATTR)  which  indicates  the  name  and  type  of 
each  attribute  and  an  integer  (CDI_DBTYPE)  to  indicate  which  model  type  is  being 
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accessed.  The  CDI_DB  is  of  type  dbid_node,  a  union  of  database  nodes,  which  provides  a 

union  dbid_node  { 

struct  rddbidnode  *dn_rei; 
struct  bie  dbid  node  *dn_hie; 
struct  net_dbid_node  *dn_net; 
struct  dapdbidnode  *dn_dap; 
struct  objdbidnode  *dn_obj;} 

Figure  5  Structure  of  MDBS  dbid_node 

pointer  for  a  specific  module  database  node  depending  on  the  value  of  CD1_DBTYPE.  For 
the  functional  data  model,  dn_dap  is  used  and  points  to  functional  data  model  specific 
information  [Figure  5].  Regardless  of  the  model,  each  database  node  contains  at  a  minimum 
the  name  of  the  database,  a  pointer  to  the  first  group  of  attributes  and  a  pointer  to  the  next 
database  node.  For  this  project  this  database  node  is  the  dap_dbid_node  [Figure  6].  The 
specifics  for  the  functional  database  node  will  be  discussed  later. 

struct  dap_dbid_node  { 

char  *dap_db_name; 

int  number_of_entitys; 

int  numberofaliases; 

int  object_counter; 

dap_db_entity_node  *first_entity; 
dap_db_alias_node  *first_alias; 
dapdbidnode  *next_db;} 

Figure  6  Structure  of  dap_dbid_node 

The  LI_INFO  provides  a  common  interface  construction  to  facilitate  the  passing  of 
data  and  parameters  throughout  the  procedures  of  each  module  by  actually  passing  only  the 
one  object  This  structure  contains  a  pointer  to  its  appropriate  CURR_DB_INFO,  pointers 
to  kernel  language  translation  files,  transaction  files,  response  files,  etc.  As  this  is  also  a 
union  structure,  each  module  has  its  own  specific  name  and  parts,  but  in  general  are  of  the 
same  construction.  For  the  Functional  database  model,  this  corresponds  to  LI_DAP  and  is 
of  type  DAPJNFO.  The  construct  of  DAP_INFO,  the  names  of  the  fields  and  the  intended 
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usage  is  indicated  below  [Figure  7].  The  structure  CURR_DB_INFO  was  previously 


Data  Type  DAP  INFO  Data  Use 

Current  DB  &  structure  in  use 
Transaction  File  Pointer/Info 

Individual  transaction 
Kernel  language  transaction 
Kernel  DDL  files  (.t  and  .d) 

Current  operation  type 
Current  kernel  response 
Error  type  indicator 
Transaction  buffer  count 
KMS  special  data 
KFS  special  data 
Linked  list  for  KC 

Status  of  nested  requests 
Linked  list  for  KFS 

^Indicates  the  item  is  a  pointer  type 
Figure  7  Structure  of  dapjnfo 

discussed.  The  FILE_INFO  type  consists  of  a  string  to  contain  the  file  name  and  a  pointer 
to  that  file.  The  rest  of  the  structured  types  are  linked  list  structures.  Each  of  the  non¬ 
primitive  types  (i.e.  not  int,  char,  etc.)  within  any  of  the  structures  is  further  defined  within 
LICOMMDATA.H. 
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IV.  THE  LANGUAGE  INTERFACE  LAYER  (LIL) 


Once  the  user  opts  to  use  the  functional  data  model  by  selecting  /  from  the  initial 
Module  Selection  menu,  Figure  8,  program  control  is  given  to  the  Language  Interface 


Select  an  operation: 


(a)  -  Execute  the  attribute-based/ABDL  interface 
(r)  -  Execute  the  relational/SQL  interface 
(h)  -  Execute  the  hierarchical/DL/I  interface 
(n)  -  Execute  the  network/CODASYL  interface 
(f)  -  Execute  the  functional/DAPLEX  interface 
f'n)  -  Execute  the  Object-Oriented  interface 
(x)  -  Exit  to  the  operating  system 

Select->  / 


Figure  8  Module  Selection  Menu 

Layer  (LIL).  The  principle  function  of  the  LIL  is  to  act  as  the  interface  between  the  user, 
# 

the  operating  system  and  the  MDBS.  The  LIL  presents  the  interface  menus,  and  accepts  the 
user  inputs  (normally  single  character  selections)  as  the  user  navigates  through  the 
functional  data  model. 

The  first  functional  data  model  menu  encountered  is  the  Database  Selection  menu. 

Enter  type  of  operation  desired 
(1)  -  load  new  database 
(p)  -  process  existing  database 
(x)  -  return  to  the  MLDS/MDBS  system  menu 

Figure  9  Database  Selection  Menu 

Figure  9.  The  user  can  define  a  new  database  name  (selection  0,  access  a  previously  named 
database  (selection  p)  or  return  to  the  Module  Selection  menu  (selection  x).  If  /  is  selected 
the  user  is  prompted  for  a  unique  name  for  the  database.  This  name  is  used  extensively 
throughout  the  frontend  and  backend  as  a  means  of  identifying  database  specific  files.  The 
name  of  the  database  is  case  sensitive. 
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Once  a  unique  name  is  provided,  the  next  menu  permits  the  user  to  designate  a  file  or 
the  terminal  as  the  input  source  for  defining  the  schemata  for  the  database.  If  a  file  is  to 
provide  the  definition,  the  LIL  assumes  the  named  file  is  in  the  UserFiles  directory.  If  the 
user  decides  to  input  the  schemata  from  the  terminal,  a  blank  screen  is  provided  and  the 
entered  data  are  placed  in  a  temporary  file  which  is  then  read  the  same  as  if  the  file  source 
was  selected.  The  format  for  the  schema  creation  statements  can  be  one  of  the  following: 

1.  DECLARE  entity  ENTITY 

2.  DEFINE  functioM entity)  -  primitive  data  type 

3.  DEFINE  function( entity  1 )  =  entity 2 

4.  DEFINE  function  1  (entity  1)  =  INVERSE  OF  function2(entity2) 

5.  DEFINE  function  1  (entity  1)  =  function!  (entity!) 

The  reading  and  parsing  of  these  transactions  will  be  discussed  in  detail  in  a  later  chapter 
on  the  Kernel  Mapping  System  (KMS).  Once  the  new  database  schema  has  been  accepted 
the  LIL  redisplays  the  Database  Selection  menu.  The  user  would  next  select  the  p  option 
Once  the  metadata  is  defined,  written  to  the  metafiles  and  copied  to  the  backends,  by 
the  KMS,  the  user  is  presented  with  the  Functional  Model  LIL  Interface  menu  shown  in 

Enter  your  choice 

(d)  -  display  schema 

(m)  -  mass  load  from  a  data  file 

(s)  -  send  data  to  a  file  for  mass  load 

(f)  -  read  in  a  group  of  queries  from  a  file 

(t)  *  read  in  queries  from  the  terminal 
(x)  -  return  to  previous  menu 

Figure  10  Functional  Model  LIL  Interface  Menu 
Figure  10.  Selection  d  will  cause  the  LIL  to  display  a  textural  representation  of  the 
metadata,  entered  in  the  previous  step,  on  the  screen.  A  sample,  based  on  the  data  used  in 
Appendix  A,  is  shown  in  Figure  1 1.  Selection  m  (mass  load)  allows  the  user  to  enter  a  large 
amount  of  data  quickly  and  easily.  The  user  will  be  prompted  for  the  name  of  the  file  which 
contains  the  mass  load  data.  The  system  expects  the  mass  load  file  to  be  located  in  the 
UserFiles  directory.  The  format  of  the  DAPLEX  mass  load  file  is  slightly  different  from  the 
other  MDBS  modules.  In  our  module  the  data  are  laid  out  in  a  format  that  more  closely 
resembles  the  expected  format  of  the  ABDL  used  for  data  storage  in  the  backends.  As  will 
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Database  Name :  MAINT 


Entity:  MALFUNCTION 
ROOT(MALFUNCTION)  -  EQUIPMENT 
INDICATION(MALFUNCTION) « INOPERATIVE 
DISCREPANCY  (MALFUNCTION)  =  STRING 

Entity:  INOPERATIVE 

DL\GNOSIS(INOPERATTVE)  *  MALFUNCTION 
WRA(INOPERATIVE)  =  EQUIPMENT 
PROBLEM(INOPERATTVE)  -  STRING 

Entity:  EQUIPMENT 
NUMBER(EQUIPMENT)  =  STRING 
NAME(EQUIPMENT)  =  STRING 

Figure  11  Sample  DAPLEX  Schema  Display 
be  discussed  later  in  this  document,  many  of  the  functions  maintain  their  relations  via  user 

transparent  intermediate  relations,  referred  to  as  pointer  entities.  To  ensure  the  functions  are 
correctly  maintained,  these  pointer  entities  must  be  included  in  the  mass  load.  Other  MDBS 
interface  modules  do  not  depend  on  this  mechanism.  Also,  the  mass  load  for  other  modules 
assumes  the  order  of  the  attribute  values  exactly  matches  the  order  the  attribute  names  were 
entered  in  the  schema.  The  DAPLEX  mass  load  makes  no  such  assumptions  and  each  line 
of  data  in  the  file  can  be  entered  in  any  order.  We  feel  this  is  a  much  more  flexible  entry 
format  and  can  be  readily  applied  to  fit  any  of  the  other  MDBS  interface  modules.  Lastly, 
the  DAPLEX  mass  load  format  meshes  with  an  option,  which  is  not  available  in  any  other 
interface  module.  This  new  option  is  the  selection  s  which  sends  all  the  current  base  data 
from  this  database  to  a  user  designated  file  in  the  UserFiles  directory.  This  is  especially 
useful  in  the  current  MDBS  configuration  since  the  data  are  kept  in  non  permanent  backend 
storage  and  changes  are  made  which  the  user  wishes  to  maintain  after  the  MDBS  is 
shutdown.  The  mass  dump  also  provides  a  quick  method  for  creating  a  mass  load  file, 
without  worrying  about  the  correct  format. 

The  next  two  options, /and  r,  permit  the  user  to  enter  a  set  of  DAPLEX  queries.  If  the 
/ option  is  selected  the  user  is  prompted  for  the  name  of  a  previously  created  file  of  queries. 
The  file  is  expected  to  be  located  in  the  UserFiles  directory.  If  the  t  option  is  selected  the 
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user  is  presented  with  a  blank  screen  to  enter  the  desired  queries.  These  queries  are  saved 
to  a  temporary  file  and  then  processed  in  the  same  manner  as  if  the  /  option  had  been 
selected.  Once  the  queries  have  been  read,  the  LIL  displays  the  queries  with  numeric 
indexes.  The  user  is  then  presented  with  the  Query  Selection  menu.  The  last  selection  in  the 
LIL  Interface  menu  is  x  and  it's  selection  will  return  the  user  to  the  Database  Selection 
menu. 

The  last  menu  in  the  functional  model  LIL  is  the  query  selection  menu.  Figure  12. 

Pick  the  number  or  letter  of  the  action  desired 
(num)  -  execute  one  of  the  preceding  queries 
(d)  -  redisplay  the  list  of  queries 
(x)  -  return  to  the  previous  menu 

Figure  12  Query  Selection  Menu 

Entering  one  of  the  numbers  corresponding  to  the  queries  listed  prior  to  this  menu,  will 
cause  that  query  to  be  processed  by  the  KMS.  «o  validity  checks  of  the  queries  either 
syntactically  or  semantically  are  done  until  proce  ’’ng  begins  by  the  KMS.  In  the  functional 
module,  the  LIL  redisplays  the  query  in  case  the  original  display  has  scrolled  off  the  screen. 
Entering  a  d  will  redisplay  the  queries  with  their  numeric  indices.  The  Query  Selection 
menu  is  redisplayed  following  either  of  the  two  previous  menu  selections.  The  last  selection 
x  will  return  the  user  to  the  Functional  Model  LIL  Interface  menu. 
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V.  THE  KERNEL  MAPPING  SYSTEM  (KMS) 


:  .  ui, 


Contained  within  the  Kernel  Mapping  System  (KMS)  is  the  DAPLEX  Parser  Module. 
The  DAPLEX  Parser  Module  converts  the  user’s  DAPLEX  Query  language  constructs  into 
equivalent  Attribute-Based  Data  Language  (ABDL)  statements.  The  new  ABDL  constructs 
are  made  available  to  other  modules  by  appending  them  into  the  structure  dap_info.  The 
control  and  dap.info  are  then  passed  to  the  backend  data  manager  via  the  Kernel  Controller 
(KC). 

The  DAPLEX  statements  can  be  subdivided  into  two  types:  Data  Definition  Language 
(DDL)  statements  and  the  Data  Manipulation  Language  (DML)  statements.  The  DDL 
statements  define  the  functional  database  schema  and  instructs  the  backend  how  the  data 
will  be  stored.  The  DML  permits  the  user  to  conduct  other  basic  database  functions  such  as 
the  insertion  and  retrieval  of  the  base  data. 

A.  THE  DATA  DEFINITION  LANGUAGE  PARSER  (DDLP) 

The  Data  Definition  Language  Parser  (DDLP)  reads  DAPLEX  DDL  constructs  from 
a  file  or  as  queries  entered  through  the  terminal.  From  the  DDL  constructs  the  parser 
generates  dap_info  pointer  information  and  creates  two  metadata  files  that  are  used  by  the 
MDBS  to  establish  and  maintain  a  database.  As  the  DDLP  reads  and  translates  the 
DAPLEX  schema  constructs,  it  stores  the  information  about  the  database  (entities,  entity 
types,  attributes  and  attribute  types,  etc.)  in  the  dap_dbid_node  (see  Figure  13).  This  node 
contains  the  schema  information  necessary  to  create  the  database  template  and  descriptor 
files.  It  also  used  during  the  processing  of  DDL  and  DML  statements  to  ensure  their 
semantic  and  syntactic  correctness. 

The  pointer  dap_id_name  points  to  the  user  entered  name  of  the  database.  This  name 
is  used  by  the  MDBS  in  the  confirmation  of  numerous  files  and  pointers  required  for  the 
database  created  by  DDLP  as  well  as  database  verification  for  the  backend  processes.  The 
next  three  data  structures  are  integers.  The  first  two,  number_of_entitys  and 
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_ char*  dap_db_name 

ini  number_of_entitys 
int  number_of_aliases 

_ int  object_countcr _ 

dap_db_entity_nodc*  first_entity 
dap_db_alias_nodc*  first_alias 
dap_db_id_nodc*  next_db 


Figure  13  Structure  of  dap_dbid_node 

number_of_aliases,  are  used  to  store  the  current  count  of  entities  and  aliases  within  the 
schema.  The  third  integer,  object_counter,  is  used  to  track  the  number  of  entity  instances 
created  by  the  user.  As  a  new  instance  of  each  entity  is  created,  it  is  assigned  a  unique 
identifier  which  the  program  generates.  Hie  last  used  entity  identification  value  is  stored  in 
object_counter.  Entity  identification  numbers  will  be  discussed  in  more  detail  later.  The 
next  three  structures  are  pointers,  which  as  their  name  suggests  point  to,  respectively,  the 
first  entity,  the  first  alias  and  the  next  DAPLEX  database  for  the  current  DAPLEX 
database. 

The  Data  Definition  Parser  searches  for  one  of  two  key  words,  DEFINE  and 
DECLARE,  as  precursors  to  possible  DAPLEX  DDL  statements.  “DECLARE”  precedes  a 
DAPLEX  entity  creation  statement  while  “DEFINE”  is  used  prior  to  function,  alias  and 
inverse  descriptions.  The  DAPLEX  DDL  statements  must  be  in  one  of  the  following  five 
forms: 

1.  DECLARE  entity  ENTITY 

2.  DEFINE  function(entity)  =  primitive  data  type 

3.  DEFINE  function( entity  1 )  »  entity 2 

4.  DEFINE  function  1  (entity  1)  =  INVERSE  OF  function2(entity2) 

5.  DEFINE  Junction  1  (entity  1)  =  function2(entity2) 
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1.  DECLARE  entity  ENTITY 

The  simplest  form  of  DDL  statement  is  DECLARE  entity  ENTITY.  When  this 
statement  form  is  encountered,  the  name  of  the  new  entity  is  compared  against  the  entity 
names  already  entered  by  previous  DECLARE  statements.  If  the  name  already  exists  the 
construct  is  rejected,  an  appropriate  error  message  is  displayed  and  the  processing  stops. 
Our  DAPLEX  data  model  and  the  MDBS  do  not  allow  for  duplicate  entity  names.  If  the 
new  entity  name  is  unique  a  dap_db_entity_node  is  created  and  appended  to  the  linked  list 
of  entities  indicated  by  the  pointer,  first_entity  within  the  dap_dbid_node.  The  new  entity’s 

char*  dap_cntity_name 
char*  dap_cntity_addr 
char  dap_entity_type 
int  number_of_attribs 
dap_db_attrib_node*  first_attrib 
dap_db_entity_node*  next_cntity 

Figure  14  Structure  of  dap_db_entity_node 
data  structure  can  be  seen  in  Figure  14. 

The  entity  name,  in  capital  letters,  is  copied  into  a  character  string  pointed  to  by 
dap_entity_name.  The  dap_entity_addr  contains  the  actual  name,  in  ABDL  format,  that 
will  stored  as  part  of  the  database  schema.  In  its  current  configuration,  the  MDBS  only 
allows  strings  of  sixteen  characters  or  less.  Therefore,  if  the  length  of  any  string  is  more 
than  sixteen  characters  the  DAPLEX  module  will  truncate  it  prior  to  storage.  In  the  case  of 
the  entity  name  it  is  stored  in  a  location  pointed  to  by  dap_entity_addr.  The  dap_entity_addr 
is  in  the  standard  ABDL  attribute  value  format  with  the  first  letter  capitalized  and  all  other 
letters  in  lower  case.  This  is  also  true  of  the  name  of  the  templates  as  stored  in  the  backend. 
In  reality,  they  are  values  of  the  attribute  name  TEMPLATE.  Later,  as  functions  (attributes) 
are  added  to  the  entity,  the  number_of_attrib  will  be  incremented.  The  structure  first_attrib 
is  a  pointer  to  the  first  of  a  linked  list  of  attribute  nodes. 
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Each  time  a  new  entity  is  declared,  an  identification  attribute  is  automatically 
added.  The  attribute  name  assigned  to  the  identification  attribute  is  created  using  the  first 
four  letters  of  the  entity  name  concatenated  with  a  “QQ”.  This  attribute  is  essential  when 
mapping  entities  to  other  entities  and  ensures  the  uniqueness  of  each  instance.  The  final 
element  of  the  entity  node,  next_entity,  is  the  pointer  to  the  next  entity  within  the  current 
database.  Once  the  data  fields  for  the  dap_db_entity_node  are  filled,  it  is  added  to  the  linked 
list  in  dap_dbid_node  and  the  database  node’s  number_of_entitys  variable  is  incremented. 
Once  an  entity  has  been  created  other  functions  (attributes)  can  be  assigned  to  the  entity. 

2.  DEFINE  function(entity)  «  primitive  data  type 

The  statement  DEFINE  functioni entity)  =  primitives  data  type  creates  a  simple 
function  (attribute)  for  the  entity  name  found  within  the  parentheses.  An  entity  with  several 
simple  functions  can  be  construed  as  a  relation  with  an  attribute  for  each  defined  function. 
Within  this  paper  we  will  use  the  two  terms  interchangeably. 

This  DEFINE  statement  is  parsed  leaving  three  tokens,  function,  entity  and 
primitive  data  type.  The  DDLP  first  checks  the  dap_dbid_node’s  linked  list  of  entities 
(first_entity)  until  the  entity  name  is  found  or  the  end  of  the  list  is  encountered.  An  entity 
must  already  be  declared  before  any  functions  can  be  assigned  to  it.  If  no  such  entity  is 
located,  an  appropriate  error  message  is  displayed  and  the  parsing/schema-creation  process 
stops.  If  the  entity  node  is  found,  the  parser  compares  the  function  name  to  other  existing 
attribute  nodes  assigned  to  that  entity.  If  the  entity  does  not  have  an  attribute  node  with  this 
name,  a  new  attribute  node  will  be  created  and  appended  to  the  list.  The  attribute  node  data 
structure  can  be  seen  in  Figure  IS. 

char*  dap_attrib_name 
char*  dap_  attrib_addr 
char  dap _attrib_ type 
dap_db_attrib_nodc*  next_attrib 

Figure  15  Attribute  Node  Structure 
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The  function  name  found  in  the  DEFINE  construct  is  stored  in  a  location  pointed 
to  by  dap_attrib_name.  The  dap_attrib_addr  points  to  the  storage  area  which  contains  the 
first  sixteen  characters  of  the  function  name.  This  address  represents  the  actual  value  used 
in  the  metadata.  The  primitive  data  type  which  follows  the  equal  sign  must  be  STRING. 
CHARACTER,  INTEGER  or  FLOAT.  The  first  letter  of  these  data  types  will  be  stored  in 
dap_attrib_type.  The  characters  “E",“A”  or  “G”  corresponding  to  entity,  alias  and 
composite  function,  respectively,  can  also  be  stored  in  the  dap_attrib_type.  These  will  be 
discussed  in  later  forms  of  the  DEFINE  statement.  A  short  example  may  clarify  some 
points  of  confusion. 

(1)  DECLARE  equipment  ENTITY 

(2)  DEFINE  name(equipment)  =  STRING 

(3)  DEFINE  the_purchase_year(Equipment)  =  INTEGER 

Figure  16  Representative  DDL  Constructs 

The  last  DEFINE  construct.  Figure  16(3),  can  be  interpreted  as:  “When  the 
function  THE_PURCHASE_YEAR  is  applied  to  the  entity  EQUIPMENT  it  will  yield  an 
integer  number.”  The  entity  name  is  stored  as  EQUIPMENT,  while  the  entity  address  is 
stored  as  Equipment  The  string  THEPURCHASEYEAR  is  stored  as  the  attribute  name 
and  THEPURCHASEYEA  as  the  attribute  address.  The  DAPLEX  data  model  allows  for 
function  overloading  or  polymorphic  functions.  As  long  the  input  parameter,  in  this  case 
the  entity,  is  different  the  functions  can  utilize  the  same  name. 

3.  DEFINE  function(entityl )  ■  entity 2 

The  statement  DEFINE  function(entityl )  =  entity 2  is  a  more  complex  definition 
of  a  function.  In  this  case,  the  function  maps  one  entity  to  another.  Once  DDLP  verifies  that 
entity]  and  entity2  have  been  defined  it  creates  a  new  attribute  node  with  an  attribute  name 
function.  The  new  attribute  node’s  dap_attribute_type  is  assigned  the  character  “E”,  which 
identifies  it  as  an  entity  type  attribute. 
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Unfortunately,  when  using  the  ABDL  of  the  MDBS,  there  is  no  easy  method  of 
storing  pointers  to  entities.  To  accomplish  the  necessary  mapping,  we  chose  to  create  an 
intermediate  entity,  henceforth  referred  to  as  a  pointer  entity.  Remember  that  each  entity 
instance  has  a  unique  identifier  assigned  as  an  attribute,  the  name  of  this  identifier 
consisting  of  the  first  four  letters  of  the  entity  name  with  a  “QQ”  appended,  (e.g.  the  entity 
equipment  in  Figure  16(1)  will  have  an  identification  attribute  called  “EQUIQQ”.)  When 
a  set  of  base  data  is  entered  into  the  database  to  create  a  new  instance  of  the  entity, 
equipment,  the  object_counter  in  the  dap_dbid_node  is  used  to  produce  a  unique 
identification  number  for  the  new  instance.  The  object_counter  is  then  incremented  to 
ensure  each  instance  has  a  unique  identification  number. 

When  a  pointer  entity  is  created  its  name  is  formed  by  the  concatenation  of  the 
three  tokens:  function,  entityl  and  entity 2  separated  by  an  underscore  and,  if  necessary, 
truncated  to  a  maximum  of  sixteen  characters.  The  only  attributes  types  in  this  entity  will 
be  identification  attributes,  its  own  and  those  entities  it  maps.  As  with  all  entities,  the  first 
attribute  is  automatically  generated  at  the  time  of  creation  of  the  entity  type.  The  other  two 
attributes  identify  the  entity  instances  which  are  to  be  mapped  from  one  to  another.  For 
example  the  statement,  DEFINE  indication(malfunction)  =  inoperative,  would  produce  a 
new  entity  type  named  “indication_malfunction_inoperative”  with  attributes  INDIQQ, 
MALFQQ  and  INOPQQ.  When  mapping  from  the  entity  “malfunction”  to  the  entity 
“inoperative”,  the  object  number  assigned  to  each  instance  entered  is  copied  into  the 
identification  attributes  in  the  pointer  entity  (see  Figure  17).  The  instances  are  now 
connected. 

4.  DEFINE  functionl(entityl)  ■  INVERSE  OF  function2(entity  2) 

With  the  DEFINE  function!  (entity] )  =  INVERSE  OF  function2(entity  2) 
statement  the  DDLP  must  ensure  that  entityl,  entity2  and  function2  have  been  previously 
declared.  In  addition  function2  must  already  have  been  defined  as  an  attribute  of  entiry2. 
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Equipment 


Malfunction 


Figure  17  Entity  to  Entity  Mapping 

Function 1  must  be  a  new  attribute  of  entity!.  An  appropriate  error  message  will  be  output 
if  any  of  the  above  conditions  are  violated  and  the  processing  of  the  schema  will  cease. 

Another  advantage  of  using  the  pointer  entity  type  of  data  structure  is  that  it 
contains  all  the  information  necessary  to  instantly  implement  an  inverse  function.  No 
additional  data  structures  need  to  be  created.  However,  when  creating  an  inverse  function 
an  attribute  node  and  an  alias  node  are  created  and  the  new  attribute  node  is  assigned  to 
entity 1.  The  attrib_type  of  the  attribute  node  is  assigned  the  character  “A”  indicating  that  it 
corresponds  to  an  alias.  The  newly  created  alias  node  data  structure  can  be  seen  in  Figure 

char*  dap_alias_new_name 
char*  dap_alias_old_name 
char*  dap_alias_entl 
char*  dap_alias_ent2 
dap_db_alias_node*  next_alias 

Figure  !  8  Structure  of  dap_alias_node 


28 


18.  Entity]  and  function 1  are  stored  in  dap_alias_entl  and  dap_alias_new_name 
respectively.  Dap_alias_ent2  and  dap_alias_old  name  point  to  the  storage  location  of 
copies  of  entity2  and  function2,  respectively. 

Once  designated  as  an  alias  the  new  name  can  be  used  in  data  manipulation 
statements  in  place  of  the  actual  entity  and  function  name.  No  actual  data  or  data  storage 
needs  to  be  allocated  in  the  backend  for  an  alias.  If  data  associated  with  the  alias  are  to  be 
stored  in  the  backend  they  are  stored  based  on  the  original  entity  and  function  name. 

5.  DEFINE  functionl (entity  1 )  ■  function  2( entity  2) 

The  final  DDL  construct,  DEFINE  function]  (entity])  -functioh2(entiry2),  allows 
for  another  definition  of  an  alias.  This  alias  is  nothing  more  than  another  name  for  the  same 
entity.  Once  the  parser  verifies  that  entity2  and  function2  exist,  the  alias  function  name, 
function 7,  is  stored  in  a  location  pointed  to  by  dap_alias_new_name.  The  entity  node. 
entity!  is  identified  by  dap_alais_entl.  While  the  predefined  entity2  and  function  name  are 
in  locations  pointed  to  by  dap_alias_ent2  and  dap_alias_old_name  respectively. 

Once  all  die  DDL  constructs  are  read  and  processed,  the  DAPLEX  Data  module 
must  create  the  two  metadata  files.  The  first  metadata  file  is  the  database  template  file.  This 
file  contains  information  about  the  number  of  templates  and  their  names,  as  well  as  the 
number  of  attributes  and  their  names  and  types  [see  Figure  19].  The  system  name  for  this 
file  is  constructed  by  appending  a  “.t”  to  the  end  of  die  database  name  (e.g.  MAINT.t).  The 
location  of  this  file  is  expected  to  be  in  u/mdbs/UserFiles. 

The  second  metadata  file  is  the  database  descriptor  file.  This  file  contains  the 
name  of  the  database  and  all  its  templates  [see  Figure  20].  There  is  also  instructional 
information  on  how  the  backend  is  to  divide  the  data  into  equivalent  classes.  In  Figure  20, 
the  letter  b  following  TEMP  indicates  the  values  listed  below  it  are  distinct,  unique  values. 
This  means  the  values  that  TEMP  contains,  at  the  time  of  the  insert,  will  determine  where 
the  data  are  stored.  The  system  name  for  the  file  is  determined  combining  the  database 
name  with  an  extension  of  “.d”  (e.g.  MAINT.d).  The  Database  Template  file  and  the 
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MAINT 

6 

3 

Malfunction 
TEMP  s 

DISCREPANCY  s 
MALFQQ  i 

4 

Wra_inoperative 
TEMP  s 
EQUIQQ  i 
INOPQQ  i 
WRA_QQ  i 

•  •  • 

4 

Equipment 
TEMP  s 
NUMBER  S 
NAME  S 
EQUIQQ  i 

Figure  19  Sample  Database  Template  File  MAINT. t 


MAINT 
TEMPbs 
!  Root_malfunctio 
!  Indication_malf 
!  Malfunction 
!  Wra_inoperativc 
!  Inoperative 
!  Equipment 

@ 

$ 

Figure  20  Sample  Database  Descriptor  File 

Database  Descriptor  file  represent  all  the  metadata  required  by  the  MDBS.  Once  these  files 
have  been  created  and  copied  to  the  backend  metadata  disks  the  base  data  can  be  entered, 
manipulated  and  retrieved. 
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B.  THE  DATA  MANIPULATION  LANGUAGE  PARSER  (DMLP) 


Data  Manipulation  Language  statements  are  those  statements  used  to  enter,  retrieve 
and  delete  the  base  data.  DML  statements  obviously  can  be  processed  only  after  the  schema 
has  been  defined  via  the  DDL  statements  and  the  metadata  has  been  copied  to  the  backend 
disks.  The  DAPLEX  DML  statements  implemented  for  our  model  arc: 

1.  The  “FOR”  statement  that  allows  base  data  to  be  entered,. 

2.  The  “RETRIEVE”  statement  for  recalling  and  displaying  the  base  data 

3.  The  “DELETE”  statement  which  removes  the  previously  entered  base  data. 

The  complexity  of  general  DML  statements  make  it  infeasible  to  give  a  generic  example 
for  each  of  the  above  type  statements. 

The  DMLP  parses  and  translates  all  DML  statements  utilizing  the  same  algorithm. 
The  DAPLEX  query  begins  with  one  of  the  three  keywords,  listed  above,  followed  by  an 
entity  name  and  /or  function  name.  The  rest  of  the  query  consists  of  statements  and  clauses 
that  qualify  and  quantify  the  data  to  be  entered  for  the  specified  entity.  The  DMLP  verifies 
syntactically  and  translates  the  request  into  an  equivalent  ABDL  statement.  A  single 
DAPLEX  statement  may  result  in  numerous  ABDL  statements  being  promulgated.  The 
translated  ABDL  statements  are  loaded  into  the  structure  dapjnfo  data,  the  appropriate 
operation  indicators  are  set  and  then  control  is  passed  to  the  KC.  The  KC  is  responsible  for 
the  execution  of  the  generated  ABDL  statements.  The  DML  statements  are  d:  ;cussed  in 
more  detail  in  the  following  sections. 

1.  FOR 

The  “FOR”  statement  allows  the  user  of  the  DAPLEX  model  to  enter  and  update 
the  base  data  for  the  previously  defined  schema.  In  other  words,  these  statements  are  used 
to  set  the  values  a  function  returns  when  it  is  applied  to  an  entity.  The  “FOR”  instruction 
has  two  general  formats. 
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a.  FOR  with  NEW  Modifier 

The  FOR  statement  with  a  NEW  modifier  requires  the  DAPLEX  module  to 
create  a  new  instance  of  the  entity.  The  user  must  provide  the  base  data  for  each  of  the 
entity’s  functions  in  the  other  statements  following.  A  generic  form  of  the  FOR  statement 
with  the  a  NEW  modifier  is  demonstrated  in  Figure  2 1 . 

FOR  NEW  entity  name 
BEGIN 

LET  function  1  (entity)  =  literal  1 

LET  function2(entity)  =  literal2 

•  •  • 

LET  function  k(entity)  =  entity  2 

SUCH  THAT  function  m  (entity  2)  =  literal  m 

•  •  • 

LET  function  n(entity)  =  literal  n 
END 

Figure  21  DAPLEX  FOR  Statement  with  NEW  Modifier 

Anytime  the  DMLP  encounters  the  key  word  FOR,  it  begins  to  accumulate 
the  information  necessary  to  create  an  ABDL  INSERT  statement.  The  entity  name  in  the 
first  line  is  the  template  attribute  value  of  where  the  base  data  will  be  stored  in  the  backend. 
The  entity  name  found  in  the  LET  statements  must  be  the  same  as  the  first  occurrence 
(exceptions  occur  if  it  encounters  a  SUCH  THAT  clause).  In  our  model  and  in  the  MDBS, 
multiple  entities  with  a  single  INSERT  statement  are  not  allowed.  FOR  statements  may 
result  in  multiple  ABDL  INSERT  statements,  but  they  must  be  passed  individually  to  the 
backend.  The  key  word,  BEGIN,  is  used  to  mark  the  start  of  a  block  of  LET  and  SUCH 
THAT  statements  which  contain  other  amplifying  information  for  the  entity. 

As  the  DMLP  parses  each  individual  LET  clause  it  verifies  that  the  function 
has  been  declared  and  is  associated  with  the  appropriate  entity.  Next  the  parser  checks  to 
see  that  the  base  data  following  the  equal  sign  is  of  the  correct  data  type,  previously  defined 
for  the  function.  For  example,  given  a  DAPLEX  FOR  query,  as  written  in  Figure  22,  the 
primitive  data  type  of  the  function  problem_number  in  line  (4)  must  be  of  type  “I” 
(i.e.  integer).  If  the  function  problem_number  had  been  defined  as  any  other  primitive  data 
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(1)  FOR  NEW  inoperative 

(2)  BEGIN 

(3)  LET  problem(inoperative)  =  “UHF_No_Receive" 

(4)  LET  problem_number(inoperadve)  =  27 

(5)  LET  wra(inoperative)  =  equipment 

(6)  SUCH  THAT  number(equiptnent)  =  “ARC-51” 

(7)  END 

Figure  22  DAPLEX  FOR  Query  Example 

type,  an  appropriate  error  message  will  be  output.  Once  verification  is  complete,  (i.e.  the 
function  name  and  base  data  type  are  legitimate  and  matching),  the  parser  adds  the 
appropriate  ABDL  addresses,  from  the  corresponding  dap_dbid_node  entity  and  attribute 
nodes,  along  with  the  base  data  values,  as  specified,  to  a  linked  list. 

The  LET  clause  followed  by  SUCH  THAT  does  not  add  data  to  the  new 

entity  instance.  Rather,  it  instantiates  a  pointer  entity  mapping  the  new  instance  to  the  other 

entity.  The  LET/SU'  H  THAT  combination  indicates  an  entity  to  entity  relationship  (see 

Figure  17).  The  DMLP  first  retrieves  the  base  data  then  generates  the  INSERT  necessary 

to  establish  the  mapping  between  the  two  entities.  Therefore  a  separate  ABDL  RETRIEVE 

and  INSERT  statement  will  be  generated  in  addition  to  the  INSERT  generated  for  the  new 

entity  instance.  Using  the  example  in  Figure  22  and  assuming  the  object_counter  is  set  to 

52,  we  could  expect  the  following  ABDL  statements: 

[RETRIEVE  ((TEMP=Equipment)and(NUMBER= Arc-5 1  ))(EQUIQQ)  by  EQUIQQ) 

[INSERT  <TEMP,  Wra_uioperativexEQUIQQ,10xINOPQQ.52xWRA_QQ,52>] 
[INSERT<TEMP,Inoperative><PROBLEM,Uhf_no_nixPROBLEM_NUMBER.27><INOPQQ.52>l 

The  value  of  10,  for  the  EQUIQQ,  would  have  been  a  result  of  the  initial  retrieve  statement. 

The  DMLP  obtains  the  identification  number  via  calls  to  a  subroutine  which 
executes  a  modified  retrieval,  or  as  it  is  named  in  the  DAPLEX  module  a 
short jermjetrieve.  Normally,  when  an  ABDL  RETRIEVE  statement  is  executed,  control 
is  ultimately  passed  to  the  Kernel  Formatting  System  which  is  responsible  for  outputting 
the  retrieved  data  onto  the  terminal  screen.  The  short jerm_retrieve  subroutine,  however, 
executes  the  statement  and  places  the  retrieved  identification  attributes  into  a  linked  list  but 
does  not  pass  control  to  the  KFS. 
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The  parser  continues  processing  the  LET  clauses  until  the  keyword  END  is 
found.  The  user  must  include  a  LET  clause  for  every  function  associated  with  the  entity, 
except  the  user  transparent  identification  attribute.  The  current  objcct.count  found  in 
dap_info  will  be  appropriately  assigned  to  the  identification  attribute  and  incremented  by 
the  parser.  If  every  function  for  an  entity  is  not  included  the  MDBS  backend  will  reject  the 
INSERT  statement. 

All  necessary  information  has  been  assembled  to  generate  the  ABDL 
INSERT  statement.  The  function  name  and  base  data  were  stored  in  a  linked  list  as  the  LET 
clauses  were  processed.  Combining  this  data  with  the  entity  name  and  identification 
attributes,  it  is  straight  forward  to  create  the  remainder  of  the  ABDL  INSERT  transactions. 
This  list,  now  consisting  of  only  INSERT  statements,  is  then  placed  in  the  dap_info 
structure  and  passed  to  the  KC  for  further  execution. 

b.  FOR  without  the  NEW  Modifier 

This  form  of  the  DAPLEX  FOR  statement  allows  the  user  to  map  data  from 
one  entity  to  another  without  establishing  a  new  entity  instance.  The  main  difference 
between  transactions  without  the  NEW  modifier  as  opposed  to  with  the  modifier,  is  that 
there  is  no  new  base  data  to  be  entered.  All  the  statements  in  the  block  following  begin  must 
be  LET/SUCH  THAT  clauses.  As  with  the  example  from  Figure  22,  numerous  RETRIEVE 
statements  will  be  initially  generated  to  obtain  the  necessary  entity  identification  numbers 
to  establish  the  relationship  mapping.  The  INSERT  statements  which  result,  will  be  only 
for  storing  data  in  the  pointer_entities.  Another  difference  is  there  will  be  a  LET/SUCH 
THAT  statement  which  includes  the  initial  target  entity  (e.g.  inoperative  in  Figure  22). 

2.  RETRIEVE 

The  DAPLEX  and  ABDL  languages  use  the  same  keyword  to  denote  the  return 
of  data  from  the  database  although  the  format  of  the  two  RETRIEVE  statements  are  quite 
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different  This  DAPLEX  statement  allows  the  user  to  see  the  results  of  applying  a  function 
to  an  entity.  Three  forms  of  the  RETRIEVE  statement  were  implemented  into  our  model. 

a.  RETRIEVE  functionl  (entity  1 )  and ...  and  function  n  ( entity I) 

This  is  the  simplest  RETRIEVE  form.  When  the  function  is  applied  to  the 
entity  all  values  are  returned.  After  identifying  the  keyword  RETRIEVE  the  DMLP 
processes  the  first  function  and  entity  name.  It  checks  the  names  against  the  list  of  valid 
entity  and  attribute  names  to  verify  that  they  have  been  defined  within  the  schema.  If  the 
next  token  is  “and”  the  DMLP  validates  the  second  set  of  names,  and  so  on.  The  entity 
names  must  be  the  same  or  the  DAPLEX  RETRIEVE  statement  is  rejected  and  processing 
of  the  query  ends.  The  function  names  are  concatenated  together  separated  by  a  These 
steps  are  repeated  for  each  “and”  clause  until  the  end  of  the  query. 

Once  the  end  of  query  has  been  reached  the  DMLP  can  assemble  the  ABDL 
RETRIEVE  statement  It  has  retained  the  entity  name  and  the  concatenated  list  of  function 
names.  A  copy  of  the  first  function  name  in  the  list  is  inserted  into  the  required  BY  clause 
of  the  statement  (the  backend  parser  will  fault  without  a  BY  clause).  The  final  ABDL 
statement  will  look  like: 

[RETRIEVE(TEMP=e/mry)  (functionl,  function2,  ....function  n)  BY  functionl] 

This  RETRIEVE  statement  is  loaded  into  the  dap_info  data  structure,  the 
appropriate  operation  is  set  and  the  control  of  the  program  is  passed  to  the  KC  for 
execution.  The  data  are  returned  to  the  KFS  which  outputs  the  results  to  the  screen  for  the 
user. 

b.  RETRIEVE  with  Simple  SUCH  THA  T  Clause 

This  type  of  RETRIEVE  allows  the  user  to  tailor  the  specification  to  retrieve 
the  data  required.  The  user  can  input  the  condition  on  what  data  are  to  be  retrieved.  The 
simplest  form  of  the  SUCH  THAT  clause  can  be  see  in  Figure  23. 

The  DMLP  processes  the  first  line  of  the  query  as  described  in  the  preceding 
section.  After  verifying  that  all  die  function  and  entity  names  have  been  properly  defined. 
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1)  RETRIEVE  function  l(entityl)  and  function2(entityl ) . 

2)  SUCH  THAT  function  x(entityl)  =  litoral 

Figure  23  DAPLEX  RETRIEVE  with  Simple  SUCH  THAT  Clause 
it  concatenates  the  function  names  in  the  first  line,  separated  by  commas,  to  form  the  list  of 

attribute  names  to  be  retrieved.  When  a  SUCH  THAT  clause  is  encountered,  the  parser  will 

begin  to  create  an  ABDL  RETRIEVE  COMMON  statement  instead  of  the  standard 

RETRIEVE.  Figure  24  displays  the  format  of  an  ABDL  RETRIEVE  COMMON  statement. 

1)  RETRIEVE  (TEMP=entityl )  (functionl,  function2,....) 

2)  COMMON(identification  attribute,  identification  attribute) 

3)  RETRIEVE(TEMP=entityl)  and  (function  x  =  literal)  (identification  attribute)] 

Figure  24  ABDL  RETRIEVE  COMMON  Statement 

The  first  line  of  Figure  23  is  translated  to  create  the  first  line  in  Figure  24. 
The  statement  immediately  following  the  keywords  SUCH  THAT  (i.e.  Iine2  in  Figure  23) 
form  the  final  line  of  the  RETRIEVE  COMMON.  The  second  line  of  Figure  24  specifies 
which  attributes  link  the  two  templates  together,  for  this  simple  case  the  same  template.  In 
almost  all  of  the  DAPLEX  RETRIEVE  COMMON  statements  it  will  be  the  identification 
attribute  which  will  link  the  two  templates.  This  more  complex  ABDL  RETRIEVE 
COMMON  statement  used  for  this  particular  retrieve  could  have  been  replaced  with  a 
simple  RETRIEVE,  but  it  would  have  required  a  separate  set  of  procedures  to  generate  the 
transaction  and  the  results  would  still  be  the  same.  The  generated  ABDL  statement  is 
loaded  into  the  dap_info  data  structure,  the  operation  is  set  to  reflect  RETRIEVE 
COMMON  and  control  is  passed  to  the  KC. 

c.  RETRIEVE  Statement  with  Compound  SUCH  THAT  Clause. 

A  DAPLEX  RETRIEVE  statement  with  a  compound  statement  following 
the  SUCH  THAT  clause  can  be  seen  in  Figure  25.  As  usual,  the  DMLP  first  verifies  that 
all  functions  and  entities  have  been  previously  defined  in  the  schema.  For  this  query  to 
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RETRIEVE  function  1  (entity  1)  and  function2(entityl) . 

SUCH  THAT  function  x(entity2)  =  entity3  AND 
function  (entity4)  =  literal 

Figure  25  DAPLEX  RETRIEVE  with  Complex  SUCH  THAT  Clause 
make  any  logical  sense,  entity  1  must  to  be  related  to  some  part  of  the  SUCH  THAT  clause. 
Therefore  one  of  the  following  two  sets  of  conditions  must  be  true: 

a)  entity  1  »  entity 2  and  entity 3  =  entity4 
or 

b)  entity  1  ■  entity3  and  entity2  =  entity4 

If  not  the  query  will  be  rejected.  As  with  the  previous  retrieve  type,  a  RETRIEVE 
COMMON  is  generated  for  each  SUCH  THAT  clause.  The  retrieved  attribute  type  will  be 
an  identification  attribute,  based  on  the  conditional  data  statement  which  follows  AND. 
Once  the  set  of  identification  attributes  is  retrieved,  the  DMLP  creates  a  disjunctive  ABDL 
RETRIEVE  utilizing  those  identification  attributes.  We  will  use  Figure  26  for  an  example. 

Retrieve  problem(inoperative) 

SUCH  THAT 

indication(malfunction)  =  inoperative  AND 
discrepancy(malfunction)  =  “Generatorjnop” 

Figure  26  Complex  RETRIEVE  Example 

In  this  example,  the  final  goal  is  to  retrieve  a  set  of  strings  corresponding  to  the  attribute 
problem.  To  start  the  DMLP  will  generate  a  RETRIEVE  COMMON  statement  which  w  ill 
obtain  the  INOPQQ  from  the  template  lndication_malf.  The  actual  statement  would  be 
similar  to: 

[RETRIEVE  ((TEMP=Malfunction)  and  (DISCREPANCY  =  Generator  inop))  (MALFQQ) 
COMMON  (MALFQQAIALFQQ) 

RETRIEVE  (TEMP*Indication_malfXINOPQQ)] 

Within  our  sample  database  (see  Appendix  A),  this  transaction  would  retrieve  a  set  of  three 
INOPQQ  numbers  corresponding  to  the  three  pieces  of  equipment  that  will  have  problems 
if  the  generator  does  not  work.  Utilizing  this  set  of  numbers,  the  DMLP  will  next  generate 
a  disjunctive  retrieve  similar  to  the  following  (assuming  the  three  retrieved  INOPQQ 
values  are  3, 6, 8): 
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flWBTWBVE  ((TEMNnoperative)  nd  (INOPQQ  =  3))  or  ((TEMJMnopemive)  and 
(INOPQQ  »  6))  or  ((TEMP-Inoperative)  and  (INOPQQ  *  8))  (PROBLEM)  BY  PROBLEM) 

d  RETRIEVE  with  WHERE  clmts* 

The  final  type  of  RETRIEVE  transaction  that  can  be  translated  by  the 

(1)  Retrieve  function  1  (entity  1)  WHERE 

(2)  BEGIN 

(3)  function2(entityl)  *  endty2 

(4)  function3(entity2)  *  literal  1 

(3)  function4(entity2) « litera!2 

(6)  functionx(entity2)  =  literal  x 

(7)  END 

Figure  27  DAPLEX  RETRIEVE  with  WHERE  Clause 
DMLP  is  a  RETRIEVE  with  a  WHERE  clause  (see  Figure  27).  The  DMLP  first  validates 
all  entity  and  function  names,  ensuring  they  have  been  previously  defined  in  the  schema. 
The  function  in  line  (3)  of  Figure  27,  must  correspond  to  one  of  our  pointer  entities.  If  any 
of  the  above  stipulations  are  not  met,  an  error  message  is  output  and  further  processing  of 
the  query  ceases. 

Line  (1)  provides  die  information  to  generate  the  final  RETRIEVE 
statement.  The  final  ABDL  RETRIEVE  statement  will  be  based  upon  retrieved  entity  1 
identification  attribute  values.  From  the  BEGIN  until  the  END  clause  is  reached,  the  DMLP 
will  create  one  RETRIEVE  COMMON  transaction  for  each  conditional  statement  read. 
These  queries  will  locate  the  identification  attributes  necessary  for  the  final  retrieve. 
Between  successive  retrieves,  the  attributes  are  stored  as  an  intersection  set  utilizing  a 
linked  list  If  at  anytime  the  set  of  attributes  becomes  the  null  set  processing  stops,  since 
every  intersection  thereafter  will  also  produce  a  null  set.  This  of  course  means  that  there  is 
no  data  which  matches  our  original  query. 

Figure  28  is  an  example  of  a  RETRIEVE  statement  with  the  WHERE 
modifier.  This  example  is  taken  from  the  tutorial  found  in  Appendix  A.  When  the  DMLP 
reads  line  (4)  it  could  generate  a  RETREIVE  statement  as  follows: 


(1)  Retrieve  discrepancy(malfunction)  WHERE 
a)  BEGIN 

(3)  indication  (malfunction)  *  inoperative 

(4)  profalem(woperative) -  “UHF_No _Xmit/Rx” 

(5)  problem(inoperative)  -  “TACAN_No_Hd/DME” 

(6)  problem(inoperative) »  “RDR_No_Xmit/Rx” 
a)  END 

Figure  28  DAPLEX  RETRIEVE  with  WHERE  Modifier 

(RETRIEVE((TEMP=lnoperative)  and  (PROBLEM*”Uhf  no  xmit/rx”)  (INOPQQ) 
COMMON(INOPQQ,INOPQQ) 

RETRIEVE((TEMP»Indication_malf)  (MALFQQ))] 

Lines  (5)  and  (6)  from  Figure  28  will  cause  the  DMLP  to  generate  statements  similar  to  the 

above  with  the  string  *UHf  _no_xmi  t  /  rx”  replaced  with  "  Ta c a n_no_hd /  dme •  and 

*  Rdr_no_xmi  t /rx",  respectively. 

Assume  for  this  example  that  die  first  RETRIEVE  COMMON  statement 

returns  a  set  of  entity  1  identification  attributes  (7,10, 12,14,15 }  and  the  second  RETREIVE 

COMMON  returns  the  set  (10,11,12,13).  The  intersection  of  these  two  sets  result  in  the 

new  set  (10,12,15).  If  the  final  RETRIEVE  COMMON  returns  the  set  of  identification 

attributes  (7,8,10,12,14)  the  final  intersection  produces  the  new  set  { 10,12). 

After  all  the  RETRIEVE  COMMON  statements  have  been  executed  and 

their  results  merged,  the  final  simple  RETRIEVE  can  be  created.  Line  (1)  provides  the 

template  name  (i.e.  entity  1 )  and  the  list  of  attributes  to  be  retrieved.  The  set  of  identification 

attributes  are  used  to  form  the  disjoint  clauses  of  the  final  RETRIEVE  statement.  Utilizing 

our  sample  data  from  the  previous  paragraph,  the  final  RETRIEVE  would  look  like: 

[RETRIEVE(CTEMP«MalfunctionXMAJLEQQ*  1 0)or(TEMP=MalfunctionX  MALFQQ*  12)) 
(PROBLEM)  by  PROBLEM] 

This  RETRIEVE  statement  is  loaded  into  the  dap_info  data  structure,  the 
appropriate  operation  is  set  and  die  control  of  die  program  is  passed  to  the  KC  for 
execution.  When  the  backend  returns  the  data  and  control  of  the  system,  the  KFS  parses  the 
output  and  prints  the  results  on  the  screen  for  the  user. 
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3.  DELETE  Transactions 

The  final  major  requirement  of  any  database  system  is  the  DELETE  transaction. 
Using  INSERT,  RETRIEVE,  RETRIEVE-COMMON  and  DELETE  the  database  system 
should  be  functionally  complete.  In  our  DAPLEX  model  we  took  advantage  of  the 
similarities  of  the  RETRIEVE  and  the  DELETE  statements  for  both  the  functional  data 

[RETRIEVE  ((TEMP-Inoperative)  and  (INOPQQ  *  3))  (PROBLEM)  BY  PROBLEM] 
[DELETE  ((TEMP=lnoperative)  and  (INOPQQ  =  3))] 

Figure  29  Comparison  of  RETRIEVE  and  DELETE  Statements 
model  and  the  ABDL  (see  Figure  29).  The  only  real  difference,  besides  the  obvious 
RETRIEVE  and  DELETE,  is  the  missing  list  of  attributes  to  be  output.  Otherwise  all 
processing  and  collection  of  identification  attributes  is  exactly  the  same.  When  control  is 
passed  to  the  DELETE  process,  the  program  simply  modifies  the  original  query  by 
replacing  DELETE  with  RETRIEVE.  It  then  pass  the  modified  query  to  the  DMLP  which 
processes  it  as  though  it  is  a  RETRIEVE  statement  When  the  DMLP  is  finished,  the 
DELETE  process  intercepts  the  final  ABDL  transaction,  replaces  RETRIEVE  with 
DELETE,  chops  off  the  ending  attributes  (by  searches  for  the  double  right  parens),  and  send 
the  query  on  to  the  KC  for  execution.  It  also  has  to  ensure  the  operation  indicator  is  set  to 
ExecDelReq,  so  the  KC  will  handle  the  query  properly  and  doesn’t  wait  around  for  data  that 
will  never  come. 
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VI.  THE  KERNEL  CONTROLLER  (KC)  AND  KERNEL 
FORMATTING  SYSTEM  (KFS) 


A.  THE  KERNEL  CONTROLLER 

The  Kernel  Controller  (KC)  is  responsible  for  the  inter-communications  between  the 
backend  system  controller  and  the  Language  Interface  module.  It  accomplishes  this  via  the 
Test  Interface  (TI).  All  procedure  calls  to  the  TI  are  characterized  by  TI_  at  the  start  of  the 
procedure  name  followed  by  an  R  or  an  S  for  receive  or  send  functions,  respectively  (e.g. 
TI_S$TrafUnit  is  a  process  which  sends  message  traffic  to  the  backend.)  After  the 
DAPLEX  queries  are  parsed  and  translated  by  the  KMS,  they  are  passed  with  operations 
indicator  to  the  KC. 

The  KC  first  ensures  there  are  no  current  problems  or  faults  with  any 
communications  with  the  backend.  If  there  are  fault  messages  the  KC  attempts  to  process 
them  prior  to  initiating  any  new  transactions.  If  it  is  unable  to  do  so  the  system  will  fault 
and  the  MDBS  program  is  terminated.  This  is  an  extreme  situation,  however,  and  normally 
the  result  of  some  catasuophic  backend  failure.  In  a  normal  situation,  the  KC  will  ensure 
the  communications  channel  is  clear  before  sending  the  transaction. 

The  KC  does  no  processing  of  the  transactions.  It  assumes  they  are  correct  as 
received  from  the  KMS.  The  transactions  are  passed  to  the  KC  as  a  linked  list  of  ABDL 
transactions.  Each  transaction  within  the  linked  list  is  assumed  to  be  of  the  same  type. 
Under  the  current  configuration,  a  backend  problem  will  result  if  any  type  of  transaction 
types  are  mixed  (e.g.  you  cannot  mix  INSERT  transactions  with  RETRIEVE  transactions.) 

Transactions  are  executed  one  at  a  time  by  forwarding  them  to  the  backend  system, 
requesting  reports  of  any  errors  between  each  transaction,  until  the  list  is  exhausted.  If  the 
transaction  was  a  user  requested  retrieve  and  no  errors  were  reported  by  the  backend 
system,  program  control,  along  with  the  database  information  pointer,  is  then  passed  to  the 
KFS.  Program  control  is  returned  to  the  KMS  in  all  other  cases. 
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There  are  numerous  occasions  when  it  is  necessary  to  retrieve  some  information  so 
the  initial  query  may  be  completed  by  the  KMS.  This  information,  normally  entity 
identification  attributes,  is  of  a  transient  nature  and  is  not  pan  of  actual  response  requested 
by  the  user.  A  normal  retrieve  will  have  control  eventually  passed  to  the  KFS  for  display. 
We  developed  a  quick  retrieval  mechanism  which  passes  the  information  back  to  the  KMS 
instead  of  to  the  KFS.  To  reduce  the  complexity  of  follow  on  transactions  which  utilize  the 
data,  it  is  stored  as  a  set,  so  duplicate  identification  attributes  are  suppressed.  The  quick 
retrieval  processing  of  the  returned  data  is  very  similar  to  the  processing  done  in  the  KFS 
which  will  be  discussed  shortly.  The  major  difference  between  the  two  is  that  the  KFS 
places  the  data  on  the  screen  while  the  quick  retrieve  places  the  data  into  sets. 

B.  THE  KERNEL  FORMATTING  SYSTEM  (KFS) 

As  its  name  suggests  the  KFS  is  responsible  for  placing  the  data  received  from  the 
kernel  data  system  onto  the  screen  in  a  format  consistent  with  the  data  model  being  used. 
In  our  case,  we  try  to  present  the  data  as  a  list  of  attributes  for  a  set  of  entities.  Obviously 
we  cannot  display  our  entities  which  represent  complex  objects.  How  would  you  display  a 
malfunction?  We  can  display  the  name  (description)  of  the  malfunction,  we  can  give  a  list 
of  the  names  representing  the  equipment  affected  by  the  malfunction  but  it  is  not  really 
possible  to  display  the  actual  malfunction  itself.  In  more  complex  systems  we  may  be  able 
to  display  a  bitmap  representation  of  a  malfunctioning  piece  of  equipment  (our  example  of 
a  non  working  electrical  generator  would  not  be  very  exciting.)  Therefore  in  the  KMS  we 
do  not  attempt  to  display  entities,  but  rather  the  resultant  of  the  functions  applied  to  the 
entity  as  long  as  the  resultant  is  a  primitive  type  (e.g.  Integer,  Character,  etc.)  Even  though 
the  user  is  supposed  to  be  unaware  of  the  existence  of  the  entity  identification  values,  it  is 
possible  to  display  them  via  the  KFS. 

When  the  KFS  obtains  control  of  the  system  a  copy  of  the  dap_info  is  passed  along 
with  a  linked  list  of  functions  expected  to  be  received  from  the  kernel.  As  the  data  are  read, 
they  are  compared  against  the  list  of  expected  values  to  ensure  we  only  display  the 


42 


attributes  requested  by  the  user.  The  entities  have  already  been  compared  and  screened 
during  other  operations  to  ensure  that  duplicates  are  not  displayed.  This  does  not  mean, 
however,  that  we  could  not  have  separate  entities  with  equal  attribute  values.  These  entities 
would  appear  to  the  user  to  be  duplicates,  when  in  reality  they  are  the  same  values  for 
different  entities.  For  example,  we  could  request  the  first  name  of  a  set  of  people.  If  the 
name  BILL  showed  twice  it  would  indicate  that  there  were  two  distinct  people  with  the 
same  first  name. 

Future  models  may  find  it  desirable  to  process  and  allow  duplicate  entities  so  the 
frequency  of  a  particular  one  could  be  determined  and  the  display  order  based  on  that 
frequency.  In  our  sample  database  design,  that  would  be  equivalent  to  finding  the  most 
probable  entity. 

The  data  received  from  the  kernel  is  passed  in  one  of  two  similar  formats  (see  Figure 

[TEMP\Oattribute_value\0...  ATTRIB UTE_N AME\Oattribute_value\0]\0 
[COMMON\0TEMP\Oattribute_value\O...  ATTRffiUTE_NAME\0attribute_value\0]\0 

Figure  30  Format  of  the  Retrieved  Kernel  Data 

30).  As  can  been  seen  the  beginning  delimiter  is  /  and  the  ending  delimiter  is  J,  very  similar 
to  the  format  the  KMS  uses  in  sending  the  data  to  the  backend.  Each  piece  of  data,  however, 
is  separated  by  a  \0  character.  In  the  programming  language  C,  the  \0  is  the  end  of  string 
character  marker.  Any  attempts  to  make  use  of  the  native  C  string  library  functions  would 
only  apply  to  the  first  string  (i.e.  [TEMP  and  [COMMON  in  Figure  30).  Knowing  that  the 
returned  data  is  in  an  extended  character  array  we  were  able  to  make  use  of  the  string 
functions  in  a  less  standard  manner. 

Previous  interface  modules  utilized  individual  character  manipulations  to  parse  and 
reformat  the  data.  The  procedures  used  were  lengthy,  difficult  to  follow  and  did  not  make 
use  of  pre-existing  functions.  These  procedures  basically  examined  each  character  being 
returned  from  the  kernel.  If  the  character  was  a  /  they  knew  it  was  the  end  of  the  retrieved 
data.  If  the  character  was  a  AO  they  new  it  was  the  end  of  a  word.  In  every  other  case  the 
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character  was  copied  to  another  character  array  for  later  comparison  and/or  display.  Often 
the  other  modules  would  display  attributes  not  necessarily  requested  by  the  user  or 
duplicates  of  the  same  attribute  within  a  record  or  entity.  These  attributes  may  have  been 
required  by  the  kernel  to  locate  certain  data  (especially  in  retrieve-common  transactions). 
Our  procedure  makes  use  of  the  string  functions  already  available  in  ANSI  C  and  alleviates 
many  of  the  previous  problems. 

As  stated  earlier,  as  part  of  the  retrieve  transaction  process,  the  KMS  prepares  a 
linked  list  of  attribute  names  that  have  been  explicitly  requested  by  the  user.  The  number 
of  attribute  values  being  retrieved  will  be  the  same  for  each  entity.  Using  this  information, 
we  simply  match  the  current  portion  of  a  retrieved  string  to  the  words  in  our  linked  list  or 
check  to  see  if  the  string  contains  a  ]  (end-of-response)  character.  If  the  latter  is  true  we 
know  the  array  has  been  completely  processed.  If  the  former  is  true  then  we  know  the  string 
which  follows  will  be  an  attribute  value  we  wish  to  display.  If  neither  is  true,  we  simply 
skip  the  next  string. 

We  advance  the  pointer  position  past  the  string  presently  being  pointed  at  utilizing 
the  ANSI  C  strlen  function.  From  earlier  sections  you  may  remember  that  the  attribute 
names  are  stored  as  all  upper  case  characters  while  the  values  are  stored  with  the  first 
character  capitalized  and  the  rest  lower  case.  Because  of  this,  there  is  no  problem  in  string 
comparisons  when  the  name  and  the  value  may  have  been  the  same.  When  we  have 
examined  and  processed  the  same  number  of  attribute  names  as  was  passed  from  the  KMS 
we  insert  a  carriage  return  and  line  feed.  Since  the  initial  display  of  the  transactions  by  the 
LEL  may  scroll  off  the  screen  we  also  redisplay  the  query  so  the  user  to  can  more  easily 
compare  the  query  with  the  response.  The  resultant  KFS  code  is  much  cleaner  and  easier  to 
comprehend.  We  also  avoided  the  problem  of  displaying  data  that  was  not  requested.  As 
the  entities  have  been  pre-screened  by  the  KMS  by  comparing  the  unique  entity 
identification  attributes,  no  duplicate  entities  are  displayed. 
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VII.  CONCLUSION 


This  thesis  involved  the  implementation  of  the  Functional/DAPLEX  database 
interface  to  the  Multi-Lingual,  Multi-backend  Database  System  (MDBS).  The  Functional 
model  is  well  suited  for  the  storage  of  data  used  in  artificial  intelligence  and  expert  system 
applications.  MDBS  is  an  effective  tool  for  managing  a  data  base  systems  growth, 
performance,  data  sharing  and  resource  consolidation. 

A.  IMPLEMENTATION 

In  this  thesis,  we  presented  the  specification  and  implementation  of  a  functional 
language  interface.  The  DAPLEX  model  compliments  the  five  previously  implemented 
database  models:  Attribute-based,  Relational,  Hierarchical,  Network  and  Object-Oriented. 
It  was  developed  to  conform  with  the  data  structure  and  other  model  conventions 
established  by  Kloepping  and  Mack  (Kloe85).  The  MDBS  implemented  at  the  Naval 
Postgraduate  School  is  the  only  known  system  that  incorporates  and  integrates  six  diverse 
database  management  systems  into  a  single  system. 

The  implementation’s  modules  were  written  in  the  C  language.  Substantial  attention 
and  effort  was  expended  to  produce  computer  code  which  was  well  documented  and 
structured.  Unlike  previous  models  we  avoided  the  use  of  global  variables  and  pointers 
whenever  possible.  Variables  to  be  utilized  by  subprograms  and  functions  were  passed 
within  procedure  calls. 

Although  we  only  implemented  a  subset  of  Shipman’s  DAPLEX  model  (Ship8 1 ).  the 
interface  provides  the  necessary  features  to  adequately  demonstrate  that  the  Functional 
model  is  a  viable,  practical  component  of  the  MDBS.  It  is  sufficiently  robust  to  enable 
database  users  to  develop  expert  model  applications  of  real  world  phenomena. 

The  program  was  written  to  assist  with  syntactical  and  semantic  error  checking 
capabilities.  In  as  many  cases  as  feasible,  messages  commensurate  with  the  error  are  output 
to  the  screen  to  assist  the  user.  The  program’s  error  handling  routines  significantly  reduce 
the  number  of  catastrophic  program  crashes  and  core  dumps. 
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B.  LESSONS  LEARNED 


As  the  Functional  interface  module  parses  the  DAPLEX  transactions,  it 
simultaneously  creates  equivalent  ABDL  statements.  The  statements  are  checked  for 
syntactic  and  semantic  accuracy  at  the  same  time  the  ABDL  statement  is  being  constructed. 
In  other  words  it  is  similar  to  a  one  pass  compiler.  In  retrospect,  we  feel  a  two  pass 
procedure  may  have  been  a  better  strategy.  Making  modifications,  to  allow  for  additional 
capabilities,  were  difficult.  Changes  to  the  way  the  DAPLEX  statements  were  validated  for 
correctness  often  produced  many  undesirable  side-effects  on  the  ABDL  statement 
construction  process.  A  two  pass  algorithm  could  have  eliminated  some  of  these  problems 
while  making  the  program  more  flexible. 

Our  representation  of  the  Functional  data  model  does  allow  the  use  of  the  same 
functions  over  different  domains.  It  does  not  allow  for  functions  with  multiple  arguments. 
For  example,  we  should  be  able  to  designate  a  function  such  that 

offspring(husband,  wife)  -  person 

to  represent  the  set  of  children  produced  in  a  marriage.  It  is  obviously  possible  for  either 
spouse  to  have  children  from  another  relationship  but  it  would  not  be  possible  for  either  to 
have  children  alone.  It  would  of  course  be  desirable  to  retrieve  based  on  a  single  spouse, 
e.g.  retrieve  all  the  children  a  wife  had  regardless  of  the  husband. 

The  program  was  written  in  a  non-  ANSI  standard  (i.e.  K  and  C)  version  of  C.  No 
ANSI  standard  compiler  is  currently  available  on  the  Sun  Microcomputer  for  the  MDBS. 
This  version  lacked  many  of  the  features  of  ANSI  C  which  would  have  made  the  program 
easier  to  write  and  understand.  One  such  limitation  was  in  defining  the  functions.  Modern 
C  compilers  allow  the  definition  of  a  function  similar  to: 

char  *  func_name(int  varl.char  var2) 

The  format  we  were  required  to  use  was  similar  to: 

char*  func_name(varl,  var2) 
int  varl; 
char  vai2; 

U 

...» 
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This  distinction  prevented  us  from  utilizing  the  software  on  a  more  robust  compiler  and 
debugger  and  porting  the  code  unto  the  Sun  4  microcomputer.  It  would  be  highly  beneficial 
to  obtain  a  more  capable  compiler  for  future  applications. 

C.  RECOMMENDATIONS  FOR  FUTURE  RESEARCH 

The  cross  model  access  capability  which  accomplishes  data  sharing  among  database 
models,  is  one  of  the  primary  goals  of  the  MDBS.  The  DAPLEX  to  ABDL  interface 
obviously  exists.  Other  models  have  additional  cross  modeling  capability,  allowing  access 
to  another  model’s  base  data.  The  goal  is  to  allow  the  user  of  one  model  to  view  another 
models  base  data  in  a  format  they  are  most  familiar.  Similar  cross  model  capabilities  should 
be  implemented  between  the  functional  data  model  and  the  other  MDBS  modules.  In  some 
situations  this  may  not  be  possible  as  it  may  not  be  able  to  logically  represent  older  models 
in  newer  models.  For  example,  the  concept  of  representing  a  network  as  a  hierarchy  would 
only  be  realistically  possible  unless  the  network  was  already  very  specialized,  i.e.  a 
hierarchy.  To  represent  the  hierarchical  model  as  a  network  model  is,  of  course,  no 
problem. 

Upgrading  to  an  ANSI  standard  compiler  would  have  a  positive  impact  on  the 
MDBS.  It  would  eliminate  the  inconsistencies  and  provide  additional  programming  tools. 
It  is  our  belief  that  the  next  system  upgrade  should  include  a  standard  C++  compiler.  This 
compiler  would  allow  the  MDBS  data  modules  improved  structures  with  no  global 
variables  and  pointers.  The  use  of  objects,  classes  and  inheritance  would  better  complement 
the  individual  data  module  sharing,  since  each  module  uses  many  shared  and  as  well  similar 
data  structures. 

While  implementing  a  new  compiler,  It  would  also  be  an  excellent  time  to  review  and 
evaluate  the  data  structures  utilized  by  the  various  models.  Some  of  the  structures  contain 
variables  that  are  no  longer  used  or  have  misleading  names.  Eliminating  and  renaming 
variables  would  improve  the  understandability  of  the  program.  A  comparison  of  each 
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module’s  data  structure,  could  lead  to  single  standard  database  node  with  improved  inter¬ 
module  data  sharing. 

The  MDBS  backend  operating  system  could  be  revamped.  Designed  many  years  ago 
it  still  has  many  of  the  systems  software  limitations  of  the  time  that  should  not  be  present 
today.  For  instance,  we  were  limited  to  a  character  string  length  of  16  characters.  We 
believe  that  this  was  a  limitation  of  the  old  system  to  keep  the  size  to  two  bytes  or  less.  Also 
currently,  the  metadata  files  (template  and  descriptor)  must  be  manually  copied  to  the 
backend  before  they  can  be  used  for  the  first  time.  This  feature  limits  the  users  capability 
to  dynamically  change  the  database  schema  during  a  session. 

D.  SUMMARY 

The  results  of  this  thesis  demonstrated  that  the  Functional  data  model  is  an  integral 
module  of  the  MDBS.  The  Functional  module  interface  provides  an  artificial  intelligence 
and  expert  system  aspect  to  the  MDBS,  that  it  did  not  have  previously,  while  maintaining 
the  integrity  of  MDBS’s  kernel  database  management  system.  The  MDBS  is  capable  of 
understanding  and  processing  multiple  diverse  database  models.  The  concept  of  a 
homogeneous  mixture  of  heterogeneous  database  models  remains  a  viable  option  through 
implementation  of  a  system  similar  to  the  MDBS. 
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APPENDIX  A  -  USER  DEMONSTRATION  GUIDE 


User  inputs  are  denoted  by  italicized  entries.  All  user  files  are  expected  to  be  located 
in  /u/mdbsAJserFiles.  Comments  are  in  this  font  (12  pt  Times). 


dbll/u/mdbs>  begin 

111213abdl . 930809 . txt 

FAMILY. cover 

Fami  ly . cover . backup 

MAINT . r 

dap lex. demo 

list2 . stop 

main* 

master.run.be* 
max_n_cmds . cntrl 
min_n_cmds . be* 
min_n_cmds . cntrl 
old/ 
sstop* 


start . check 
start . cntrl* 

start . cntrl . screen . trace 

stop . check 

stop . dbll* 

stop.dbl2* 

stop . dbl3  * 

temp . txt 

tempjunk/ 

trace/ 

zero .dbll* 

zero.dbl2* 

zero.dbl3* 


Welcome  to  MDBS,  today  is  Mon  Jan  31  09:33:22  PST  1994 


Check  the  time  each  file  was  last  compiled: 


-rwxrwxr-x 

1 

mdbs 

122880 

Jan 

22 

15:03 

. . /BE/bget . exe 

-rwxrwxr-x 

1 

mdbs 

122880 

Jan 

22 

15:03 

. . /BE/bput . exe 

-rwxrwxr-x 

1 

mdbs 

204800 

Jan 

22 

14:59 

.  . /BE /cc . exe 

-rwxrwxr-x 

1 

mdbs 

57344 

Jan 

22 

15:00 

.  . /BE/dio . exe 

-rwxrwxr-x 

1 

mdbs 

294912 

Jan 

22 

15:02 

. . /BE/dirman . exe 

-rwxrwxr-x 

1 

mdbs 

262144 

Jan 

22 

15:05 

. . /BE/recp . exe 

-rwxrwxr-x 

1 

mdbs 

122880 

Jan 

22 

14:52 

. . /CNTRL/cget . exe 

-rwxrwxr-x 

1 

mdbs 

122880 

Jan 

22 

14:52 

. . /CNTRL/cput . exe 

-rwxrwxr-x 

1 

mdbs 

114688 

Jan 

22 

14:52 

. . /CNTRL/ iig . exe 

-rwxrwxr-x 

1 

mdbs 

131072 

Jan 

22 

14:53 

. . / CNTRL /pp . exe 

-rwxrwxr-x 

1 

mdbs 

180224 

Jan 

22 

14:55 

. . / CNTRL /reqp . exe 

-rwxrwxr-x 

1 

mdbs 

"  835584 

Jan 

27 

09:30 

. . /CNTRL/ ti . exe 

There  should  be  12  files  listed,  if  not  you  need  to  recompile. 


Do  you  n«ad  to  recompile  any  executable  and/or  copy  the  6 
executable  files  to  each  Back  End 
(bget,  bput,  cc,  dio,  dirman,  recp.exe)?  (y/n)  a 

The  Current  Configuration  is: 

Version  Name:  greg 

Controller:  dbll 

1  Back  End: 

dbl3 

WARNING:  All  data  will  be  lost  if  you  reconfigure 
Do  you  wish  to  reconfigure  the  Back  Ends?  (y/n)  a 


Do  you  wish  to  use  current  database?  (y/n)  a 

Zeroing  backend  meta  disk  on  back  end,  dbl3... 

File  to  zero  =  /dev/sd2c 

Bytes  to  zero  =  1000000 

Bytes  written. . . 

102400 

204800 

307200 

409600 

512000 

614400 

716800 

819200 

921600 

1000000 

Zeroing  backend  data  disk  on  back  end,  dbl3 . . . 

File  to  zero  =  /dev/sd4c 

Bytes  to  zero  =  200000 

Bytes  written... 

102400 

200000 

Removing  CINBT  and  IIG  AT  tables  on  controller,  dbll... 

Do  you  wish  to  run  the  Multi  Modal,  Multi  Lingual, 

Multi  Backended  Database  System?  (y/n)  y 

stopping  processes  on  back  end  db!3 


no  processes  to  kill  on  dbl3 
stopping  processes  on  dbll,  the  controller 
stop.dbll:  syntax  error  at  line  13:  '{'  unexpected 
EXECUTING:  start. cntrl 

rm:  trace/*. tr:  No  such  file  or  directory 
starting  5  of  6  controller  processes  on  dbll... 
EXECUTING:  rsh  dbl3  -n  /u/mdbs/be. greg/run. be  & 
EXECUTING:  /u/xndbs/greg/CNTRL/ ti  . exe  1 
PID  written  to  /u/mdbs/ . ti .exe.pid 
****  Unlink  error:  No  such  file  or  directory 
No  match. 

Running  backend  on  dbl3... 

E 1 ]  13961 

[  2  J  13962  NOTE:  Ensure  there  are  six  processes 

E  3  ]  13963  ^ ^^^running  plus  the  10]  0000  otherwise  the 

[4]  13964  may  suddenly  quit 

[5]  13965 

[6]  13966 

[0]  0000  System  configured  for  1  backend(s). 


MBDS:  Initializing  communications. 


Seconds  remaining: 


5 


4 


3 


2  1 


The  Multi -Lingual /Multi -Backend  Database  System 


Select  an  operation: 


(a) 

Execute 

the 

(r) 

Execute 

the 

(h) 

-  Execute 

the 

(n) 

Execute 

the 

(f) 

-  Execute 

the 

(o) 

Execute 

the 

(x) 

Exit  to 

the 

Select->  f 


attribute-based/ABDL  interface 
relational/SQL  interface 
hierarchical/DL/I  interface 
network/CODASYL  interface 
functional /DAPLEX  interface 
Object-Oriented  interface 
operating  system 


Enter  type  of  operation  desired 
(1)  -  load  new  database 
(p)  -  process  existing  database 
(x)  -  return  to  the  MLDS/MDBS  system  menu 


Action - >  1 


Enter  name  of  database - >  MAINT 

Enter  mode  of  input  desired 

(f)  -  read  in  a  group  of  creates  from  a  file 
(t)  -  read  in  creates  from  the  terminal 
(x)  -  return  to  the  main  menu 

Action - >  t  Enters  the  database  schema.  A  copy  is  printed  at 

^  the  pnd  of  this  section. 

What  is  the  name  of  the  CREATE/  QUERY  file  - >  MAINTdapdb 

Enter  type  of  operation  desired 
(1)  -  load  new  database 
(p)  -  process  existing  database 
(x)  -  return  to  the  MLDS/MDBS  system  menu 


Action - >  p 


Enter  name  of  database - >  MAIN T 


Enter  your  choice 

(d)  -  display  schema 

(m)  -  mass  load  from  a  data  file 

(s)  -  send  data  to  a  file  for  mass  load 

(f)  -  read  in  a  group  of  queries  from  a  file 

(t)  -  read  in  queries  from  the  terminal 
(x)  -  return  to  previous  menu 


Action - >  d 

Database  Name  :  MAINT 

Entity:  MALFUNCTION 
ROOT (MALFUNCTION)  =  EQUIPMENT 
INDICATION (MALFUNCTION)  =  INOPERATIVE 
DISCREPANCY (MALFUNCTION)  =  STRING 

Entity:  INOPERATIVE 

DIAGNOSIS (INOPERATIVE)  =  MALFUNCTION 
WRA( INOPERATIVE)  =  EQUIPMENT 
PROBLEM (INOPERATIVE)  =  STRING 

Entity:  EQUIPMENT 
NUMBER (EQUIPMENT)  =  STRING 
NAME (EQUIPMENT)  =  STRING 

Enter  your  choice 

(d)  -  display  schema 

(m)  -  mass  load  from  a  data  file 

(s)  -  send  data  to  a  file,  for  mass  load 

(f)  -  read  in  a  group  of  queries  from  a  file 

(t)  -  read  in  queries  from  the  terminal 
(x)  -  return  to  previous  menu 


Action - >  m 


What  is  the  name  of  the  CREATE/  QUERY  file  - >  MAINT. r 

5  10  15  20  25  30  Indicates  the  system  is  working. 


Enter  your  choice 

(d)  -  display  schema 

(m)  -  mass  load  from  a  data  file 

(s)  -  send  data  to  a  file  for  mass  load 

(f)  -  read  in  a  group  of  queries  from  a  file 

(t)  -  read  in  queries  from  the  terminal 
(x)  -  return  to  previous  menu 

Action - >  f 


What  is  the  name  of  the  CREATE/  QUERY  file - >  MAZSTdmprmql 

1  Retrieve  name (equipment ) 

2  Retrieve  number (equipment ) 

3  Retrieve  problem ( inoperative) 

4  Retrieve  discrepancy (malfunction) 

5  Retrieve  name (equipment)  and  number ( equipment ) 

Pick  the  number  or  letter  of  the  action  desired 

(num)  -  execute  one  of  the  preceeding  queries 
(d)  -  redisplay  the  file  of  queries 

(x)  -  return  to  the  previous  menu 

Action - >5 


Retrieve  name (equipment)  and  number (equipment ) 


NAME (EQUIPMENT) 

Generator 

Radar 

Tacan 

Uhf_cb 

Uhf_radio 

Uhf_trx 


NUMBER (EQUIPMENT) 

Wra_l 

Aps-138 

An-125 

Wra_2 

Arc-51 

Wra_7 


Pick  the  number  or  letter  of  the  action  desired 

(num)  -  execute  one  of  the  preceeding  queries 
(d)  -  redisplay  the  file  of  queries 

(x)  -  return  to  the  previous  menu 


Action  - 


—  >  4 


Retrieve  discrepancy (malfunction) 

DISCREPANCY (MALFUNCTION) 

Genera  tor__inop 

Uh£_cbjpopped 

Uhf_trxjnalf 

Pick  the  number  or  letter  of  the  action  desired 

(num)  -  execute  one  of  the  preceeding  queries 
(d)  -  redisplay  the  file  of  queries 

(x)  -  return  to  the  previous  menu 

Action - >3 


Retrieve  problem (inoperative) 

PROBLEM ( INOPERATIVE ) 

Rdr_no_xmi t / rx 
Tacan_.no Jhd/  dme 
Uhf_no_xmi t / rx 
Uhf_no_rx 
Uhf_no_xmit 

Pick  the  number  or  letter  of  the  action  desired 

(num)  -  execute  one  of  the  preceeding  queries 
(d)  -  redisplay  the  file  of  queries 

(x)  -  return  to  the  previous  menu 

Action - >  x 

Enter  your  choice 

(d)  -  display  schema 

(m)  -  mass  load  from  a  data  file 

(s)  -  send  data  to  a  file  for  mass  load 

(f)  -  read  in  a  group  of  queries  from  a  file 

(t)  -  read  in  queries  from  the  terminal 
(x)  -  return  to  "previous  menu 

Action - >  f 

What  is  the  name  of  the  CREATE/  QUERY  file  - >  MXINTd&pr»q2 


1 


Retrieve  name (equipment )  and  number (equipment > 


2  Delete  equipment 
SUCH  THAT 

number (equipment)  =  “WRA_2 " 

3  Retrieve  problem (inoperative) 

SUCH  THAT 

indication (malfunction)  =  inoperative  AND 
discrepancy (malfunction)  =  “Generator_Inop" 

4  Retrieve  discrepancy (malfunction) 

SUCH  THAT 

indication (malfunction)  =  inoperative  AND 
problem (inoperative)  =  “UHF_No_Xmit/Rx" 

5  Retrieve  discrepancy (malfunction) 

SUCH  THAT 

indication (malfunction)  =  inoperative  and 
problem (inoperative)  =  “UHF_No_Rx“ 

6  Retrieve  discrepancy (malfunction)  WHERE 

BEGIN 

indication  (malfunction)  =  inoperative 
problem (inoperative)  =  "UHF_No_xmit/Rx" 
problem (inoperative)  =  ■ TACAN_No_Hd / DME " 
problem (inoperative)  =  "RDR_No_Xmit/Rx" 

END 

Pick  the  number  or  letter  of  the  action  desired 

(num)  -  execute  one  of  the  preceeding  queries 
(d)  -  redisplay  the  file  of  queries 

(x)  -  return  to  the  previous  menu 


Action  - 


>  3 


Retrieve  problem (inoperative) 
SUCH  THAT 


What  problems  exist  if 
the  generator  is  inop. 


indication (malfunction)  =  inoperative  AND 
discrepancy  (malfunction)  =  "Generator__Inop* 

PROBLEM ( INOPERATIVE ) 

Rdr_no_xmi t  /  rx 
Tacan_no_hd/dme 
Uhf_no_xxni  t  /  rx 

Pick  the  number  or  letter  of  the  action  desired 

(num)  -  execute  one  of  the  preceeding  queries 
(d)  -  redisplay  the  file  of  queries 

(x)  -  return  to  the  previous  menu 

Action - >  4 


Retrieve  discrepancy  (malfunction) 

SUCH  THAT 

indication (malfunction)  =  inoperative  AND 
problem (inoperative)  =  “UHF_No_Xmit/Rx" 

DISCREPANCY (MALFUNCTION) 

Generator_inop 

Uhf_cb_popped 

Uhftrxmalf 


What  could  cause  the 
UHF  radio  to  not 
transmit  or  receive. 


Pick  the  number  or  letter  of  the  action  desired 

(num)  -  execute  one  of  the  preceeding  queries 
(d)  -  redisplay  the  file  of  queries 

(x)  -  return  to  the  previous  menu 


Action 


---  >  5 

What  could  cause  the  UHF  to 
Retrieve  discrepancy  (malfunction)  be  transmit  only 

SUCH  THAT 

indication (malfunction)  *  inoperative  AMD 
problem (inoperative)  =  “ UHF_No_Rx “ 

DISCREPANCY (MALFUNCTION) 

Uhf_trx_malf 

Pick  the  number  or  letter  of  the  action  desired 

(num)  -  execute  one  of  the  preceeding  queries 
(d)  -  redisplay  the  file  of  queries 

(x)  -  return  to  the  previous  menu 

Action - >  6 

Retrieve  discrepancy (malfunction)  WHERE 
BEGIN 

indication  (malfunction)  =  inoperative 
problem ( inoperative)  =  " UHF_No_Xmi t / Rx " 
problem (inoperative)  =  “ TAC AN_No_Hd / DME " 
problem (inoperative)  =  " RDR_No_Xmi t / Rx “ 

END 

DISCREPANCY (MALFUNCTION) 

Generator_inop 

Pick  the  number  or  letter  of  the  action  desired 

(num)  -  execute  one  of  the  preceeding  queries 
(d)  -  redisplay  the  file  of  queries 

(x)  -  return  to  the  previous  menu 

Action - >  I 


Pick  the  number  or  letter  of  the  action  desired 

{num)  -  execute  one  of  the  preceeding  queries 
(d)  -  redisplay  the  file  of  queries 

(x)  -  return  to  the  previous  menu 


Action - >2 


Delete  equipment 
SUCH  THAT 

number ( equipment )  =  ■ WRA_2 ■ 


Pick  the  number  or  letter  of  the  action  desired 

(num)  -  execute  one  of  the  preceeding  queries 
(d)  -  redisplay  the  file  of  queries 

(x)  -  return  to  the  previous  menu 


Action - >  1 


Retrieve  name (equipment )  and  number (equipment ) 


NAME (EQUIPMENT) 

Generator 

Radar 

Tacan 

Uhf_radio 

Uhf_t rx 


NUMBER ( EQUI PMENT ) 

Wra_l 

Aps-138 

An-125 

Arc-51 

Wra_7 


Pick  the  number  or  letter  of  the  action  desired 

(num)  -  execute  one  of  the  preceeding  queries 
(d)  -  redisplay  the  file  of  queries 

(x)  -  return  to  the  previous  menu 

Action - >  x 


Enter  your  choice 

(d)  -  display  schema 

(m)  -  mass  load  from  a  data  file 

(s)  -  send  data  to  a  file  for  mass  load 

(f)  -  read  in  a  "group  of  queries  from  a  file 

(t)  -  read  in  queries  from  the  terminal 
(x)  -  return  to  previous  menu 


Action 


>  x 


Enter  type  of  operation  desired 
(1)  -  load  new  database 
(p)  -  process  existing  database 
(x)  -  return  to  the  MLDS/MDBS  system  menu 


Action - >  x 


The  Multi-Lingual/Multi-Backend  Database  System 


Select  an  operation: 


(a) 

Execute 

the 

(r) 

Execute 

the 

(h) 

Execute 

the 

(n) 

Execute 

the 

(f) 

Execute 

the 

(o) 

Execute 

the 

(x) 

Exit  to 

the 

Select->  x 

All  done  with  MBDS 

dbll/u/mdbs/greg/run — 2> 


attribute-based/ABDL  interface 
relational/SQL  interface 
hierarchical/DL/I  interface 
network/CODASYL  interface 
functional/DAPLEX  interface 
Object-Oriented  interface 
operating  system 


MAINTdapdb  DECLARATIONS 


DECLARE  equipment  ENTITY 

DEFINE  name ( equipment )  =  STRING 

DEFINE  number ( equipment )  =  STRING 

DECLARE  Inoperative  ENTITY 

DEFINE  problem (inoperative)  =  STRING 

DEFINE  wra (inoperative)  =  equipment 

DECLARE  malfunction  ENTITY 

DEFINE  discrepancy (malfunction)  =  STRING 

DEFINE  indication (malfunction)  =  inoperative 

DEFINE  root  (malfunction).  =  equipment 

DEFINE  diagnosis (inoperative)  =  INVERSE  OF  indication (malfunction) 


APPENDIX  B  -  PROGRAM  CODE 


/* 

*  File  Name:  a!loc.c 

*  Source:  /u/mdbs/greg/CNTRl/n/LangIF/src/Dap/Alloc/alloc.c 

*  This  File  contains  procedures  for  allocating  space  for  Daplex 
Interface  common  structures 

* 

*/ 

#include  <stdio.h> 

#include  <licommdata.h> 

#include  <dap_info.h> 

#include  ”flags.def' 


dap_dbid_node  *dap_dbid_node_alloc( ) 


{ 

dap_dbid_node  *new_dbid_ptr; 

/*  allocate  an  area  of  memory  for  the  structure  of 
type  dap_dbid_node  */ 

#ifdef  EnExFlag 

printf(  "Enter  dap_dbid_node_alloc\n" ); 

#endif 


if  ((new_dbid_ptr  =  (dap_dbid_node*) 

malloc  (sizeof(dap_dbid_node)))  ==  NULL) 

{ 

printf("***  dap_dbid_node_alloc  problem  with  mallocNn"); 
sleep(lO); 

} 

new_dbid_ptr->dap_db_name  =  (char*)malloc(sizeof(char)*DBNLength); 

#ifdef  EnExFlag 

printf("Exit  dap_dbid_node_alloc\n"); 

#endif 

new_dbid_ptr->next_db  =  NULL; 
return  new_dbid_ptr; 

}  f*  end  dap_dbid_node_alloc  */ 
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dap_db_entity_node  *dap_entity_node_alloc( ) 


{ 

dap_db_entity_nodc  *new_dap_entity_ptr; 

/*  allocate  an  area  of  memory  for  the  structure  of 
type  dap_entity_node  */ 


#ifdef  EnExFlag 

printf("Enter  dap_db_entity_node_alloc\n"); 

#endif 


mallocNn"); 


if  ((new_dap_entity_ptr  =  (dap_db_entity_node  *) 
malloc  (sizeof  (dap_db_entity_node)))  ==  NULL) 

{ 

printf("***  dap_db_entity_node_alloc  problem  with 
sleep(lO); 

} 


#ifdef  EnExFlag 

printf("Exit  dap_db_entity_node_alloc\n"); 

#endif 


new_dap_entity_ptr->next_entity  =  NULL; 
new_dap_entity_ptr->number_of_attribs=0; 
return  new_dap_entity_ptr; 

}  /*  end  dap_db_entity_node_alloc  */ 


dap  db  attrib  node  *dap_db_attrib_node_alloc() 

{ 

dap_db_attrib_node  *new_dap_db_attrib_ptr; 

/*  allocate  an  area  of  memory  for  the  structure  of 
type  dap_db_attrib_node  */ 

#ifdef  EnExFlag 

printf("Enter  dap_db_attrib_node_alloc\n"); 

#endif 
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mallocNn"); 


if  ((new_dap_db_attrib_ptr  =  (dap_db_attrib_node  *) 
malloc  (sizeof  (dap_db_attrib_node)))  ==  NULL) 

{ 

printf("***  dap_db_attrib_node_alloc  problem  with 


} 


sleep(lO); 


#ifdef  EnExFlag 

printf("Exitdap_db_attrib_node_alloc\n"); 

#endif 

new_dap_db_attrib_ptr->next_attrib  =  NULL; 
return  new_dap_db_attrib_ptr; 


J  /*  end  dap_db_attrib_node_alloc  */ 


struct  dap_req_info  *dap_req_info_alloc( ) 

l 

struct  dap_req_info  *new_dap_req_ptr; 

/*  allocate  an  area  of  memory  for  the  structure  of  type  dap_req_info  */ 
#ifdef  EnExFlag 

printf  ("Enter  dap_req_info_alloc\n"); 

#endif 

if  ((new_dap_rcq_ptr  =  (struct  dap_req_info  *) 
malloc  (sizeof  (struct  dap_req_info)))  =  NULL) 

{ 

printf  ("***  dap_req_info_alloc  problem  with  mallocNn"); 
sleep(lO); 

} 

new_dap_req_ptr  -  >dpri_in_req=NULL ; 

new_dap_req_ptr->dpri_next_req=NULL; 

new_dap_req_ptr->dpri_req=NULL; 

#ifdef  EnExFlag 

printf  ("Exit  dap_req_info_alioc\n"); 

#endif 


mum  new_dap_req__ptr; 
}  I*  end  dap_req_info_alloc  */ 


struct  dap_kms_info  *dap_kmsjnfo_alloc() 

{ 

struct  dap_kms_info  *nrw_dap_kms_info_ptr; 
f*  allocate  an  area  of  memory  for  the  structure  of  type  dap_kms_info  */ 
#ifdef  EnExFlag 

printf  ("Enter  dap_kms_info_alloc\n"); 

#endif 

if  ((new_dap_kms_info_ptr  =  (struct  dap_kms_info  *) 
malloc  (sizeof  (struct  dap_kms  info)))  ==  NULL) 

{ 

printf  ("***  dap_kms_info_alloc  problem  with  mallocW); 
sleep(lO); 

} 

#ifdef  EnExFlag 

printf  ("Exit  dap_kms_info_alloc\n"); 

#endif 

return  new_dap_kms_info_ptr; 

}  /*  end  dap_kms_info_alloc  */ 
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/* 


*  Flic  Name:  chk  res  jeftc 

*  Source:  /u/nxlbVgreg/CNTRI/n/LangIF/src/Dap/Kc/chk_rcs_left.c  $ 
41  This  tile  contains  procedures  utilized  in  processing  queries  to 

die  backends  of  the  MDBS. 

* 

*/ 

#include  <stdio.h> 

♦include  <licommdata.h> 

#include  <dap_info.h> 

♦include  "flags.def ' 


/*  An  External  from  TI  in  MDBS  *  needed  so  that  we  can  return  to 
attribute-based  interface  without  any  problems  */ 
extern  int  reqs_lefi_count; 


dap_chk_responses_left(dap_ptr) 


/*  This  procedure  accomplishes  the  following:  */ 

/*  (1)  Receives  the  message  from  MBDS  by  calling  */ 
/*  TI_R$Message()  which  is  defined  in  the  Test  Int.  */ 

/*  (2)  Gets  the  message  type  by  calling  TI_R$Typc.  */ 
/*  (3)  If  not  all  responses  to  the  request  have  been  */ 

/*  returned,  a  loop  is  entered.  Within  this  loop  a  */ 

/*  case  statement  separates  the  responses  received  by  *1 
/*  message  type.  .  */ 

t*  (4)  If  the  response  contained  no  errors,  then  procedure  */ 
/*  TI_R$ReqRes()  is  called  to  receive  the  response  from  */ 
/*  MBDS.  */ 

/*  (5)  A  check  is  then  made  to  determine  if  this  is  the  last  */ 

/*  response.  If  it  is,  then  the  results  are  processed.  */ 
l*  (6)  If  the  message  contained  an  error  then  procedure  */ 
/*  TI_R$ErrorMessage  is  called  to  get  the  error  message  */ 
/*  and  then  procedure  TI_ErrRes_output  is  called  to  */ 

/*  output  the  error  mesage.  */ 

struct  dap_info  *dap_ptr; 

( 

int  OddMark  *=  TRUE; 
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in*  mgg_type, 

(tone; 

char  **esponse; 

/*  values  for  these  two  depends  on  the  defines  in  tsdnt.def  (CNTRL/TI)  */ 
char  request[ONE_K],  f*  Added  request  length  */ 
err_msgtONE_K]; 

struct  Reqld  rid;  I*  Defined  in  licommdata.h  */ 

#ifdef  EnExFlag 

printfCEnter  dap_chk_responsesJeft  \n"); 

#endif 

/*  koLresponse  is  now  created  in  newuser.c  in  Lil  */ 

response  =  dap_ptr->dpi_kfs_data.kfsi_dap.kdi_response; 
done  =  FALSE; 

while  (!done)/*Not  all  responses  for  the  current  request  have  been  received*/ 

{ 

TI_R$Message();/*receive  message  from  MBDS*/ 

msg_type  =  Tl_R$Type();  /*  get  the  message  type  of  the  received  message*/ 

switch(msg_type)  /*  Is  the  response  correct  or  are  there  errors?  */ 

{ 

case  CH_ReqRes:  /*  The  response  is  correct  */ 

TLR$ReqRes(&ridjesponse);  /*  Receive  the  results  */ 

done  -  f_chk_if_last_response(dap_ptr);  /*Are  we  done  */ 
l*  What  kind  of  operation  is  this  */ 
switch  (dap_ptr-xlap_operation) 

1 

case  ExecRetCReq: 
case  ExecRetReq: 

f_kemel_fonnatting_system(dap_ptr); 

break; 

case  ExecInsReq: 
case  ExecDelReq; 
case  ExecUpdReq: 
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break; 

break; 

case  ReqsWithErr: 

TI_R$EiTorMessage(request,err__msg); 
n_EnRes_ouq)ut(request,err_msg); 
done  «  TRUE; 
break; 

default; 

printf("Illegal  msg_type  *  %d  received  .W,  msg_type); 
break; 

}  /*  End  switch  */ 

}  /*  End  while  */ 

I*  Reset  the  External  from  MBDS  */ 
reqs_left_count «  0; 

#ifdef  EnExFlag 

printf("Exit  dap.chkjresponses  Jeft  \n"); 

#erdif 

}  t*  end  dap_chk_responses_left  */ 


f_chk  if  last_response(dap_ptr) 


struct  dap_info  *dap_ptr; 

/*  This  procedure  accomplishes  the  following:  */ 

/*  ( 1)  Determine  length  of  response.  */ 

/*  (2)  Determines  if  this  is  the  last  response  to  a  given  request  and  */ 
returns  a  boolean  indicating  such.  */ 


{ 

int  response Jength; 
#ifdef  EnExFlag 
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printffE&ter  f_chk_if_last_jesponse  \nH); 

#endif 

for  (response  Jength  -  0;  f*  Calculates  response  length  */ 

dapjHr->dpLkfs_<Uta.kfsi_dap.kdi_response(response_length] ! 

responseJength-H-); 

-H-responseJength; 

/*  Checks  if  this  is  the  last  response  */ 

if  (dap_ptr-xipi_kfs_data.kfsi_dap.kdi_response[response_length  - 

**  CSignal) 

I 

#ifdef  EnExFlag 

printf("Exitl  f_chk_if_last_response  \n  "); 
printf("rcsponse  *  %dSn",  response_length); 

#endif 

return  TRUE; 

}  f*  end  if  */ 

else  /*  It  is  not  the  last  response  */ 

{ 

#ifdef  EnExFlag 

printf("Exit2  f_chk_if_last_response  \n"); 

#endif 

return  FALSE; 

}  /*  end  else  */ 

J  f*  end  f_chk_if_last_response  */ 


1 


EORcsult 


3) 
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/* 

*  File  Name:  dap_checks.c 

*  Source:  Aj/nxJbs/greg/CNTnU/ryLangIF/src/Dap/Knis/dap_chcclcs.c 

*  This  file  contains  utility  procedures  for  finding  information  about 
die  database  currently  in  use 

* 

*/ 


#include  <stdio.h> 
#include  <string.h> 
#include  <ctypc.h> 
#ifndef  DAPLEX_INFO 
#include  <licommdata.h> 
#include  <dap_info.h> 
#endif 


int  entity_search(name,  ptr) 


/*  Sees  if  an  entity  exists  */ 
char  *name; 

dap  db_entity_node  *ptr; 

t 

while  (ptr) 

{ 

if  (!strcmp(name,ptr->dap_entity_name))  return  1; 
ptr*ptr->next_entity; 

) 

return  0; 

} 


int  attribjsearch(attrib,  entity,  ptr) 

f*  Sees  if  an  attribute  in  an  entity  exists  */ 
char  *attrib; 
char  *entity; 

dap_db_entity_node  *ptr, 

{ 

dap_db_attrib_node  *at_ptr; 
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while  (per) 

{ 

if  (?strcfflp(emity,  ptr->dap_eiitity_nainc)) 

( 

at_ptr  «  ptr->furst_attrib; 
while(at_ptr) 

{ 

if(!strcmp(attrib,at_ptr-xiap_attrib_namc))  return  1; 
at_j>tr=at_ptr->ncxt_attrib; 

return  0; 

J 

ptr=ptr->next_entity; 

I 

return  0; 

} 


int  alias_search(name,ptr) 


/*  Sees  if  an  alias  exists  */ 
char  "‘name; 

dap_db_alias_node  *ptr; 

{ 

while  (ptr) 

l 

if  (!strcmp(name,ptr->dap_alias_new_name))  return  1; 
ptr*ptr->next_alias; 

} 

return  0; 

} 


int 

illegal_char_search(name) 

/*  Sees  if  an  valid  characters  are  used  in  names*/ 
char  *name; 

{ 

if  (!isalpha(*name++)) 

( 

printf("Non  alphanumeric  at  start  of  token.Nn"); 
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return  1; 


) 

forO*name;*name++) 

{ 


if  (!(isalnum(*name)ll  *name 

{ 

return  1; 

} 


) 

return  0; 

) 


int  pre_parser(db_node,  query,  start) 

/*  Sees  if  die  function  passed  is  a  composite  and  expands  it*/ 
dap_dbid_node  *db_node; 
char  *query; 
int  start; 

{ 

int  composite=FALS  E ; 

char  tokenl[ONE_K],  *tokl,  *tok2; 

#ifdef  EnExFlag 

printf("Enter  the  pre_parser  Function. \n”); 
fflush(stdout); 

#endif 

strcpy(token  1  .query); 

printf("HELP  value  passed  in  to  check  is  %s\n",tokenl); 
if  (strstr(tokenl,"(")) 

{ 

tok  1  «strtok(token  1 "  ("); 
tok2=strtok(NULL,  )  ”); 

if  (attrib  type_search(tokl,tok2,db_node->furst_entity)— ’G’) 

{ 

strcpy(token  1  ,get_addr(db_node,' A',tok2,tok  1 )); 
printf(MHELP  value  passed  is  now  %s\n",tokenl); 
composite=TRUE; 

} 

} 

if  (composite) 

{ 

tokl=strtok(token  1  ,"&"); 
tok2=strtok(NULL,"&"); 
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if  (stan) 

{ 

sprintf(query,”%s  #  %s  &",tokl,tok2); 

I 

else 


sprintf(query,‘‘%s  #  %s  &",tok2,tokl ); 

) 

} 

return  composite; 


/* 

*  File  Name:  daf  define.c 

*  Source:  /u/mdbs/greg/CNTRL/Tl/LangIF/src/Dap/Knis/dap_define.t 

*  This  file  contains  the  procedure  for  processing  DDL  constructs. 

* 

*/ 

finclude  <stdio.h> 

#include  <string.h> 

#include  <stdlib.h> 

#include  <licommdata.h> 

#ifndef  DAPLEX  _INFO 
#include  <dap_info.h> 

#endif 

/*  following  variable  need  to  be  passed  dap_db_id_node  *db_node  */ 

int  ddlparsefinput,  dap  info  ptr) 

struct  dap_info  *dap_info_ptr; 
char  "“input; 

{ 

dap_dbid_node  *db_node; 

char  keywordflnputCol],  string[InputCol],  string2[lnputColl; 

char  tokenl[InputCol]; 

char  token2[InputColj; 

char  token3[InputCol]; 

char  token4[InputColl: 

char  temp[InputCol]; 

char  substring[InputCol]; 

#ifdef  EnExFlag 
printf  ("Enter  ddl_parse\n"); 
fflush  (stdout); 

#endif 


db_node  =  dap_info_ptr->dpi_curr_db.cdi_db.dn_dap; 
strcpy(string,input); 
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f*  get  operation  keyword  from  string  */ 
keyword  *  strtok(string,"  '); 

/*  Process  transaction  beginning  with  DECLARE*/ 
if  (!(strcmp(ki;yword,"DECLARE"))) 

{ 


if  (strchr(input,  '='))  /*  ->  alias  declaration  else  new  entity  */ 

{ 

/*  New  Alias  Declaration  */ 
token  1  =  strtok(NULL, "  ="); 
if  (illegal_char_search(tokenl)) 

{ 

ERRORC'Dlegal  character  in  word: ".token  1); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

} 

if  (alias_search(tokcnl,  db_node->first_alias) 

llentity_seo*ch(token  1 ,  db_node->first  entity)) 

{ 

ERROR("Previously  declared  : ",  token  1 ); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

) 

/* see  if  token  1  is  a  reserved  word*/ 
if  (reserve_search(tokenl)) 

{ 

ERRORCEntity  Name  is  reserved  word:  ".token  1); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

} 

/*  process  the  token  that  follows  =  in  the  alias  declaration  */ 
token2  *  strtok(NULL,” "); 
if  (token2[0]  =  ’=' ) 

{ 

if  (token2fl]==\D’) 

{ 

/*  token2  was  only  Get  next  token  */ 
token2  =  strtok(NULL," "); 

} 


else 

{ 

/*  token2  has  "=”  (no  spaces)  immediately  preceeding  token  */ 
*token2++;  /*  remove  preceeding  '='  */ 

} 

} 

if  (token2) 

{ 

if  (illegal_char_search(token2)) 

{ 

ERROR("Dlegal  character  in  word:",token2); 
dap_info_ptr->dap_error  =  ErrQeateDB; 
return  0; 

1 

else 

{ 

if  (entity  _search(token2,  db_node->first_entity)) 

i 

/*  Succesfui  Alias  Declaration*/ 
add_new_alias(db_node,token  1  ,token3.token2,token4); 
add_new_attrib(db_node,token2,token  1 A*,token4,token3 ); 

1 

else 

I 

ERROR("Entity  has  not  been  defined  :  ".token2); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

} 

} 

} 

else 

{ 

ERROR("Notliing  found  after  =  ".string); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

} 


} 

else  /*  Not  an  entity  New  Entity  Declaration  */ 

f 


if  (token  1  =  strtok(NULL, " ")) 
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I 


if  (illegal_char_search(tokenl)) 

{ 

ERR0R("I11egal  character  in  word: ".token  1); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

} 

if  (entity _search(token  1  ,db_node->first_entity)) 

{ 

ERROR("Entity  has  previously  been  defined  :  ".token  1 ); 
dap_info_ptr*>dap_erTor  *  ErrCreateDB; 
return  0; 

) 

/*see  if  token  is  reserved  word*/ 
if  (reserve_search(token  1 )) 

{ 

ERROR("Entity  Name  is  reserved  word:  ".token  1); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

} 


) 

else 

/*  token  1  is  null  ->  DECLARE  with  no  arguments*/ 

{ 

ERROR("Too  few  arguments  -  Nothing  follows  DECLARE"); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

) 

/*  have  valid  entity  name  (token  1).  Now  the  word  ENTITY  must  follow  */ 
if  (token2  =  suiok(NULL, "  ")) 

{ 

if  (!(strcmp(token2,  "ENTITY")))  /*token2  =  "ENTITY"  */ 

{ 

/*  Succesfully  declared  entity  */ 
add_new_entity(db_node,  token  1); 

} 

else 
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( 

ERRORC'Dlcgal  DECLARE  statement",  string); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

} 

) 

else 

{ 

ERROR("Too  few  arguments  -  Nothing  follows  DECLARE"); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

} 


/*  There  should  be  no  more  tokens  in  string  */ 
if  (strtok(NULL." ")) 

1 

ERRORO’Too  many  arguments  in  Declare  Statement",  input); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

} 


} 

else  if  (!(strcmp(keyword, "DEFINE"))) 

{ 

if  (!(strchr(input,  '='))) 

I 

ERRORC'Ulegal  Definition  format.  No  equal  sign",input); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

) 

substring  =  strtok(NULL,"="); 

if  (!(strstr(substring,")")))/*  No  Right  Parens*/ 

{ 

ERRORC’IUegal  Definition  format.  Improper  Left  Hand  side",input); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

} 

if  (strstr(substring,"  ("))/*  Case  one  or  two*/ 

{ 


77 


token  1  *  strtok(substring," "); 
token2  =  swok(NULL,’' "); 

if  (strcmp(token2,"("))/*Means  token2  is  not  Left  Parens  by  itself*/ 

< 

token2++; 

} 

else 

I 

token2  =  strtok(NULL," "); 

} 

} 

else/*Case  three  or  four*/ 

I 

token  1  =  strtok(substring,"  (");/*Use  space  to  clear  any  leading*/ 
token2  *  strtok(NULL,"  ("); 

}/*Should  be  down  to  good  tokens  only  otherwise  token  will  be  messed  up*/ 
if  (strstr(token2,")"))/*It  had  best  be  the  last  character*/ 

{ 

token2[strlen(token2)-l]=’V0';/*Get  rid  of  the  last  character*/ 

} 

if(stnok(NULL,"  )"))/*Means  more  after  right  parens*/ 

I 

ERRORC'Dlegal  Definition  format.  Improper  Left  Hand  side'jnput); 
dap_info_po»dap_error  =  ErrCreateDB; 
return  0; 

} 

if  (reserve_search(token  1 )) 

{ 

ERRORC'Dlegal  Definition  format.  Reserved  word  on  Left  Hand  side ’’.string); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
exit(-l ); 

) 

if  (illegal_char_search(tokenl)) 

{ 

ERRORC'Dlegal  Definition  format  Attribute  name  on  Left  Hand  side",tokenl); 
dap_info_ptr->dap_crror  =  ErrCreateDB; 
return  0; 

} 


if  ( !  (cntity_scarch(tokcn2,db_nodc->first_entity ))) 

{ 

ERRORC’Dlcgal  Definition  format.  NO  entity  name  on  Left  Hand  side",token2); 
dap_info_ptr->dap_erTor  =  ErrCreateDB; 
return  0; 

} 

if  (attrib  search(tokenl,tokcn2,db_node->first_entity)) 

{ 

ERRORf'Illegal  Definition  format.  Attribute  name  used’.tokenl); 
dap_info_ptr->dap_error  —  ErrCreateDB; 
return  0; 

}/*Now  get  the  right  hand  side  of  the  equation*/ 


strcpy(string2,input); 

strtok(string2,"="); 

if  (!(token3  =  strtok(NULL,"  ")))/*Means  nothing  after  the  equal  sign*/ 

{ 

ERROR( "Illegal  Definition  format.  No  Right  Hand  side",input); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

} 


if  (!strcmp(token3,"INVERSE"))/*We  may  have  got  an  alias*/ 

{ 


if  (!(tokcn3  =  strtok(NULL,"  "))!1  strcmp(token3,"OF"))/*Means  nothing  after  Inverse*/ 

I 

ERRORC'Dlegal  Definition  format.  Incorrect  info  after  Inverse",input); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

}/*Up  to  here  it  looks  pretty  good  for  an  alias*/ 


if  (! (substring  =  strtok(NULL,"=")))/*Best  not  be  another  equal  sign*/ 

{ 

ERROR( "Illegal  Definition  format.  No/Incorrect  Info  after  Inverse  Of input); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

) 
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I 

'  if  (!(strchr(substring,')')))/*  No  Right  Parens*/ 

{ 

ERRORC'Illegal  Definition  format.  Improper  Right  Hand  side'  , substring); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

} 

if  (strstr(substring,"  ("))/*  Case  one  or  two*/ 

I 

token3  =  strtok(substring,"  "); 
token4  =  stnok(NULL," "); 

if  (strcmp(token4,"("))/*Means  Left  Parens  by  itself*/ 

{ 

token4++; 

} 

else 

{ 

token4  =  strtok(NULL,"  ”); 

} 

} 

else/*Case  three  or  four*/ 

< 

token3  =  strtok(substring,"  ("); 
token4  =  strtok(NULL,"  ("); 

if  (strstr(token4,")"))/*It  had  best  be  the  last  character*/ 

{ 

token4[strlen(token4)-l]=ND’;/*Get  rid  of  the  last  character*/ 

} 

}/*Should  be  down  to  good  tokens  only  otherwise  token  will  be  messed  up*/ 

if  (strtok(NULL."  Y"))/*Means  more  after  right  parens*/ 

{ 

ERRORC'Illegal  Definition  format.  Improper  Right  Hand  side'  .substring); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

} 


if  (!(cntity_search(token4,db_node->first_entity))) 

{ 

ERRORC'Illegal  Definition  format.  NO  entity  name  on  right  Hand  side",tokcn4); 
dap_info_ptr->dap_error  =  ErrCreateDB; 
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if  (!(attrib_search(token3,token4,db_node->first_entity)))/*This  had  better  already 
exist*/ 

1 

ERROR(  "Illegal  Definition  format.  No  attribute  on  Right  Hand 

side",token3); 

dap_info_ptr->dap_error  =  ErrCreateDB; 
return  0; 

I 

add_new_alias(db_node,token  1  ,token3,token2,token4); 
add  new_attrib(db_node,token2,token  1 A',token4,token3 ); 

} 

else  ^otherwise  should  be  a  composite  function  or  a  datatype  or  an  entity  and  already 
token3*/ 

{ 

if  (strstr(token3,"(")) 

{ 

make_composite(db_node,token  1  ,token2,stnok(token3,"(”). 
strtok(NULL,"(")»stnok(NULL,")")); 
return  1; 

} 

if  (data_type_search(token3))/*Proper  definition  of  basic  attribute*/ 

{ 

add_new_attrib(db_node,  token2,  token  1.  token3[0),  token3): 

} 

else 

{ 

add_new_attrib(db_node,  token2,  token  1,  'E',  token3); 
if  (cntity_search(token3,db_node->first_entity))/*Pointcr  for  entity*/ 

sprintf(temp,"%s_%s_%s",  token  1  ,token2,token3); 

add_new_entity(db_node,temp); 
add_new_attrib{db_node,temp,ID(token2),T,  "INTEGER"); 

add_new_attrib(db_node,temp,ID(token3),T,  "INTEGER"); 

#ifdef  EnExFlag 
printf  ("Exitddl_parse\n"); 


ffiush  (stdcxit); 
tendif 


return  1; 

) 

else 

I 

ERROR("Illegal  Definition  format  Improper  expression  on  Right  Hand 

sideMjnput); 

dap_info_ptr->dap_error  «  ErrCreateDB; 

return  0; 

1 

1 

} 

} 

1 
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/* 

*  File  Name:  dapjgeneral.c 

*  Source:  /u/mdbs/greg/CNTR17TI/LangIF/src/Dap/Kms/dap_general.c 

*  This  file  contains  general  utility  procedures  for  operations  in  the 
Daplex  Interface. + 

* 

*/ 


♦include  <stdio.h>  /*  printf  found  here  */ 

#ifndef  DAPLEXJNFO 
♦include  <dap_info.h> 

♦include  <licommdata.h> 

♦include  Mflags.def ' 

♦endif 

♦define  RESERVE.LENGTH  10 
♦define  RESERVE.NO  24 
♦define  DATA_TYPE_NO  4 

char  RESERVE_LIST  [RESERVE_NO][RESERVE_LENGTH]= 
/*  List  of  reserve  words*/ 

{"FLOAT' 

."INTEGER" 

."STRING" 

."CHARACTER" 

."AND" 

,"OR" 

."DECLARE" 

."DEFINE" 

."ENTITY" 

."INVERSE" 

."OF" 

."LET" 

."FOR" 

."A" 

."NEW" 

."BEGIN" 

."END" 

."LET" 

."INCLUDE" 

."EXCLUDE" 

."RETRIEVE" 


83 


t  awn 

."THAT 

."WHERE"}; 


ERROR(error_msg,  token) 

(*  Error  handler  for  outpudng  messages  to  a  file*/ 
char  *  error_msg; 
char  *  token; 

{ 

/♦file  enror_msg  must  be  opened  before  this  function  is  used  */ 
printf("Sn%s  %s\n",  error_msg,  token); 

} 

/*  Determines  if  the  token  is  a  reserved  token  */ 
reserve_search(token) 
char  *  token; 

{ 

inti; 

for  (i=0;i<RESERVE_NO;i++) 

{ 

if  (!strcmp(token,RESERVE_LIST[i]» 

{ 

return  1; 

} 

) 

return  0; 

} 


datatypesearch(token) 

/*  Checks  to  see  if  the  token  is  a  standard  datatype  */ 
char  *  token; 

< 

inti; 

for  (i=0;i<DATA_TYPE_NO;i++) 

{ 

if  (!strcmp{  token  JlESERVE_LIST[i])) 

{ 

return  1; 

} 
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return  0; 

1 


abdlform(string) 

/*  Put  a  string  into  the  ABDL  attribute  value  format  */ 
char  string[]; 

{ 

int  ij; 

string[0]=toupper(string(0]); 
j=strlcn(string); 
for  (i*l;i<j;i++) 
string[i]=tolower(string[i]); 
return; 

} 


char*  get_addr(db_node, type, entity  ,attribute) 

/*  Gets  the  ABDL  formatted  address  of  whatever  */ 
dap_dbid_node*  db_node; 
char  type; 
char*  entity; 
char*  attribute; 

{ 

dap_db_entity_node*  entity_node; 
dap_db_attrib_node*  attrib_node; 

entity_node  =  db_node->first_entity; 

while  (entity_node  &&  strcmp(entity_node->dap_entity_name,entity)) 
entity_node  *  entity_node->next_entity; 
switch  (type) 

( 

case  'e': 
case  'E': 
if  (entity_node) 

{ 

return  entity_node->dap_entity_addr; 

} 

else 

1 
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IVUUU  *  IV  •  WAW| 


break; 
case  'a'; 
case  ’A’: 
if  (!entity_node) 

( 

return  NOT_FOUND; 

) 

else 

{ 

attrib_node  =  entity_node->first_attrib; 

while  (attrib_node  &&  strcmp(attrib_node->dap_attrib_name.attribute)) 
attrib_node  =  attrib_node->next_attnb; 
if  (attrib_node) 

1 

return  attrib_node->dap_attrib  addr; 

} 

else 

{ 

return  attribute; 

) 

) 

default: 
return  entity; 

I 


char*  range_value  (db  node,  attributename,  entity  name) 

/♦Returns  the  range  of  a  given  function*/ 
struct  dap_db_id_node  *db_node; 
char  *attribute_name; 
char  *entity_name; 

( 

dap_db_entity_node  *entity; 
dap_db_attrib_node  *attribute; 

#ifdef  EnExFlag 
printf  ("Enter  range_valueV); 
fflush(stdout); 

#endif 


8t> 


entity  =  db_node>>first_entity; 

while  (entity  &&  strcmp(entity->dap_entity  name,  entity_name)) 

[ 

entity  =  entity->next_emity; 

} 

if  (lentity) 

( 

#ifdef  EnExFlag 
printf  ("Exit2  range_value\ri'); 
fflush(stdout); 

#endif 

return  NULL; 

} 

attribute  =  entity->first_attrib; 

while  (attribute  &&  strcmp(attributc->dap_attrib_namc,  attribute_name)) 

{ 

attribute  =  attribute->next_attrib; 

) 

#ifdef  EnExRag 
printf  ("Exit  range_value\n"); 
fflush(stdout); 

#endif 

if  (iattribute)  return  NULL; 
return  attribute->range; 

} 
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*  File  Name:  k  contc 

*  Source:  /u/mdbVgreg/CNTRL/TI/LangIF/src/Dap/Kc/k_cont.c 

* 

*1 

#include  <stdio.h> 

♦include  <licommdata.h> 

♦include  <dap_info.h> 

♦include  "flags.def ' 


f_Kernel_Controller(dap_ptr) 


struct  dapjnfo  *dap_ptr; 


/*  This  procedure  accomplishes  the  following:  */ 

/*  (1)  Checks  dpi_operation  to  determine  whether  we  are  creating  a  */ 

/*  database  or  querying  the  database  or  if  there  are  errors.  */ 

/*  (2)  Depending  on  the  dpi_operation  the  corresponding  */ 

/*  procedure  is  called.  */ 


( 

struct  filejnfo  *f_ptr; 

♦ifdef  EnExFlag 

printf("Enter  f_Kemel_Controller  \n"); 
fflush(stdout); 

♦endif 

dap_ptr->dpi_subreq_stat  =  LASTSUBREQ; 

/*  look  at  operation  to  determine  what  action  to  take  */ 

switch  (dap  ptr->dap_operation) 

{ 

case  CreateDB:  /*case  where  we  are  creating  a  database*/ 
/*  .d  and  .t  files  are  already  created*/ 
f_ptr  =  &(dap_ptr->dpi_ddl_files->ddli_temp); 
f_ptr->fi_fid  =  fopen(f_ptr->fi_fname,  "r"); 
dbl_template(dap_ptr->dpi_curr_db.cdi_dbname); 
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fclose(f_ptr->fi_fid); 

#ifdef  EnExFlag 

printf("Exitl  f_KcmcLControllcr\n"); 
fflush(stdout); 

#endif 

break; 

case  ExecRetReq; 
case  ExecRetCReq: 
case  ExecInsReq: 
case  ExecDelReq: 
case  ExecUpdReq: 

dap_req_execute(dap_ptr); 

#ifdef  EnExFlag 

printf("Exit2  f_KemeLController  \n"); 
fflush(stdout); 

#endif 

break; 

default;  /*  This  handles  any  errors  */ 

f*  Error  handling  code  ********/ 

printf("EiTor  -  Unknown  operation  type  in  Kc.\n"); 

#ifdef  EnExFlag 

printf("Exit3  f_Kemel_ControIler  \n"); 
fflush(stdout); 

#endif 

break; 

}  /*  end  switch  */ 

}  /*  end  procedure  f_Kemel_Controller  */ 


89 


/* 


*  File  Name:  kfs.c 

*  Source:  /u/nxibs/greg/C>nTU/n/LangIF/src/Dap/Kfs/kfs.c 

*  This  process  is  to  receive  the  requested  output  from  the  back- 

*  ends  and  output  it  in  a  Functional/D  A  PLEX  type  form. 

*/ 

#include  <stdio.h> 

#include  <licommdata.h> 

♦include  <dap_info.h> 

♦include  "flags.def ' 


f_kernel_formatting_system(dap_ptr) 
struct  dap_info  *dap_ptr; 

{ 

int  done,  msg_type,  number_of_answers; 
int  OddMark  =  TRUE; 
char  "response,  function[InputCols]: 
struct  temp_str_info*  temp; 

♦ifdcf  EnExFlag 

printf("Enter  f_kemel_formatting_system\n  "); 

♦endif 

response  =  dap_ptr->dpi_kfs_data.kfsi_dap.kdi_response; 
++response;  /*  skip '['  character  in  response  */ 

get_header(dap_ptr->dap_query, function); 

tcmp=dap_ptr->dap_query; 

while  (temp!=NULL) 

/♦Set  the  headers  at  25  characters  apart*/ 

{ 

printf(’'%-25.25s”,temp*>tsi_str); 
number_of_an  swers++; 

stnok(temp->tsLstr,"("); 

temp=temp->tsi_next; 

} 

/♦Responses  look  like  [stringNOstring'Ostring^O ...  ]  such  that 
attribute  values  are  separated  by  attribute  names.  There  may  also 
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be  other  undesirable  information  which  must  be  cleaned.*/ 

while(*response  !=  CSignal  &&  strcmp(function,response)) 

[ 

response+=(strlcn(iesponse)+ 1 ); 

) 

temp=dap_ptr->dap_query; 

/♦Everyother  word  is  an  attribute  name  &  CSignal  is  the  end*/ 
while(*response  !=  CSignal) 

{ 

if  (!strcmp(response,function)) 
printffNn"); 
if  (OddMark) 

/*  Then  it  is  an  attribute  name  */ 

{ 

if  (check_list(tempjesponse)) 

/*Then  it  is  one  of  the  attribute  names  wanted  so  just  skip  the  name  */ 

{ 

response+=(strIen(response)+ 1 ); 

OddMark  *  FALSE; 

} 

else 

/*  Else  we  skip  the  attribute  name  AND  value  we  don't  want*/ 

{ 

rcsponse+=(strlen(response)+l ); 
response+*=(strlen(response)+ 1 ); 

} 

} 

else 

/*  Then  it  is  an  acceptable  attribute  value  to  print  */ 

I 

printf("%-25.25s",response); 
response+=(strlen(response)+ 1 ); 

OddMark  =  TRUE; 

} 

} 

printf("Vn"); 

/*  Clean  up  the  linked  list  of  headers  */ 
while  (dap_ptr->dap_query) 

temp  =  dap_ptr->dap_query; 
dap_ptr->dap_query  =  temp->tsi_next; 
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frcc(icmp->tsi_str); 

free(temp); 

} 

#ifdef  EnExFlag 

printf("Exit  f_kcmcl_formatting_systcmNn'); 

#endif 

}  /*  end  f_kemeLformatting_system  */ 

check_list(list,  word) 

/*  Secs  if  a  word  is  in  a  linked  list  */ 
struct  temp_str_info  *list; 
char  *word; 

{ 


while  (list) 

{ 

if  (!strcmp(list->tsi_str,word))  return  TRUE; 
list  *  list->tsi_next; 

} 

return  FALSE; 

} 


get_header(query, function ) 

/*  Retrieves  the  first  header’s  attribute  name  */ 
struct  temp_str_info*  query; 
char*  function; 

{ 

char*  temp; 

#ifdef  EnExFlag 
printf("Enter  get_headei\n"); 

#endif 

temp  =  (char*)malloc(sizeof(char)*(strlen(query->tsi_str)+l)); 

strcpy(temp,query->tsi_str); 

strcpy(function,strtok(temp,"(")); 

#ifdef  EnExFlag 
printf("Exit  get_headeiNn");  .. 

#endif 

} 
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I* 

*  File  Name:  kms.c 

*  Source:  /u/mdbs/grcg/C^TIU/n/l^gIF/src/Dap/Kms/kms.c 

*  This  file  contains  procedures  for  operations  redirection  within  the 
KMS  of  the  Daplex  Interface. 

* 

*/ 

#include  <stdio.h> 

#include  <licommdata.h> 

#include  <dap_info.h> 

#include  <string.h> 

#include  "flags.def ' 


translate_requst(dap_info_ptr,  fcurrreqptr) 

struct  dap_info  *dap_info_ptr; 
struct  rcqjnfo  *f_cun_req_ptr; 


{ 

int  i; 

char  temp_str[InputCols+l]; 

#ifdef  EnExFlag 

printfC’Enter  translate_rcquest\n"); 

printfC'dap  request  =  %s\n",  f_curr_req_ptr->ri_dapjreq->dpri_req); 
#endif 

/*  Get  rid  of  any  junk  at  the  start  */ 

for  (i=0;i<strlen(f_currreq_ptr->ri_dap_req->dpri_req)  && 
f_curr_req_ptr- >ri_d ap_req- >dpri _req [ i ]  == '  *;i++) ; 
stmcpy(temp_str,(f_curr_req_ptr->ri_dap_req->dpri_req)+i,lnputCols); 
temp_str[InputCols]  =  ’W; 
strtok(temp_str," "); 

/*  What  operation  is  being  requested  */ 

/♦If  it  says  DELETE*/ 
if  (!strcmp(temp  str, "DELETE")) 

{ 

do_DELETE(dap_info_ptr,f_curr_req_ptr->ri_dap_req->dpri_in_req); 
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#ifdef  EnExFlag 

printf("Exit  translatc_request  after  delete\n "); 
#endif 

return; 

) 

else 

{ 

/*  If  it  says  DEFINE  or  DECLARE  */ 
if  ((!  strcmp(temp_str, "DEFINE" ) )  II 
(!strcmp(temp_str,"DECLARE"))) 

{ 


ddl_parse(f_curr_req_ptr->ri_dap_req->dpri_req,dap_info_ptr); 
#ifdef  EnExFlag 

printf("Exit  translate_request  after  createVn”); 

#endif 

return; 

} 

I 

/*  Otherwise  it  is  a  normal  transaction*/ 

/*  Check  to  ensure  the  right  format  for  the  backend!!!*/ 
dap_to_abdl(dap_info_ptr,f_curr_req_ptr->ri_dap_req->dpri_in_req); 

#ifdef  EnExFlag 

printf("Exit  translate_request\n'); 

#endif 

return; 

}  /*  end  translate_request  */ 


f_abdl_cleanup(dap_info_ptr) 

/*  This  function  ensures  we  free  up  any  structures  created  in  the  query 
processing  */ 

struct  dap.info  *dap_info_ptr; 

{ 
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#ifdef  EnExFlag 
printfCEnter  f_abdl_cleanup\n "); 

#endif 

dap_infoj)tr->dpi_abdl_tran.ti_curr_req.ri_ab_req  = 
dap_info_ptr>dpi_abdl_tran.  ti_fir  st_req  .ri_ab_req ; 

while  (dap  info_ptr->dpi  abdl_tran.ti  curr_req.ri  ab_req) 

{ 

dap_info_ptr->dpi_abdLtran.ti_first_req.ri_ab_req  = 
dap_info_ptr->dpi_abdLtran.ti_cuiT_req.ri_ab_req->ari_next_req; 

free(dap_info_ptr->dpi_abdl_tran.ti_curr_req.ri_ab_req->ari_req); 

free(dap_info_ptr->dpi_abdl_tran .  ti_curr_i  eq.ri_ab_req ) ; 

dap_info_ptr->dpi_abdl_cran.ti_cunr_req.ri_ab_req  = 

dap_info_ptr->dpi_abdLtran.ti_first_req.ri_ab_req; 

} 

free(dap_info_ptr->dpi_abdl_tran); 

#ifdef  EnExFlag 
printf("Exit  f_abdl_cleanup\n"); 

#endif 

}  /*  end  f_abdl_cleanup  */ 


do_DELETE(dap_info_ptr,query_ptr) 
/*  This  procedure  does  the  lazy  work  for  the  Delete  transaction  */ 

struct  dap_info  *dap_info__ptr; 
struct  temp_str_info  *query_ptr; 

{ 

char  *templ; 

char  temp_str[ONE_K],  temp2[ONE_K]; 
dap_dbid_node  *node_ptr; 
dap_db_entity_node  *entity; 
int  found  =FALSE; 

#ifdef  EnExFlag 
printfC'Enter  do_DELETESn"); 
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#endif 


node_ptr  *  dap_info_ptr->dpi_curr_db.cdi_db.dn_dap; 
entity  ■  node_ptr->first_entity; 

strcpy(temp2,query_ptr->tsi_str); 
strtok(temp2," "); 
temp  1  =strtok(NULL, " "); 
to_caps(templ); 

while(entity  &&  ! found) 

{ 

l*  To  use  query.c  it  must  have  a  field  to  retrieve.  Use  the  ID  pointer*/ 
if  (!  strcmp(entity->dap_entity_name,temp  1 )) 

I 

sprintf(temp_str,"RETRIEVE  %s(%s)%s". 

ID(temp  1  ),templ  .(query  _ptr->tsi_str)+(strlen(  temp  1  )+8)); 
found*=TRUE; 

} 

entity  =  entity->next_entity; 

1 

if  (!found) 

{ 

ERROR("Entity  not  found  ".tempi); 
return  0; 

) 

strqpy(temp2,query_ptr->tsi_str); 

strq)y(query_ptr->tsi_str,temp_str); 

dap_to_abdl(dap_info_ptr, query  _ptr); 
strqpy(query_ptr->tsi_str,temp2 ); 

/*  Replace  the  word  RETRIEVE  with  DELETE  */ 
dap_info_ptr->dap_operation  *  ExecDelReq; 

sprintf(temp_str,"[DELETE%s",(dap_info_ptr->dpi_abdl_tran.ti_first_req.ri_ab_req- 

>ari_req)+9); 

strcpy(dap_info_pu->dpi_abdl_tran.ti_first_req.ri_ab_req->ari_req.temp_str); 

f*  Need  to  end  the  request  before  the  retrived  field  names 
This  hould  occur  right  after '))'.  Can  only  delete  one 
instance  at  a  time  */ 

tempi  ■  strstr(dap_info_ptr->dpi_abdl_tr an. ti_first_req.ri_ab_req->ari_req, "))"); 
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if  (tempi  ! *8  NULL) 

{ 

tempi  [2] »  T; 
tempi  [3]  =  V)*; 

} 

#ifdef  EnExFlag 

printf("HELP  the  request  is  %s\n",dap_info_ptr->dpi_abdl_tran.ti_first_req.ri_ab_req- 
>ari_req); 

printfrExit  do_DELETENn"); 

#endif 
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t* 

*  File  Name:  lil.c 

*  Source:  /u/mdbs/greg/CNTRL/TI/LangIF/src/Dap/L  il/lil.c 

*  This  file  contains  procedures  which  control  the  menu  selection 
routines  for  the  user,  accept  inputs  and  redirect  required  action 
else  where 

* 

*/ 

tinclude  <stdio.h> 
finclude  <licommdata.h> 

#include  <lil.dcl> 

#include  <lil.ext> 

#include  <dap.dcl> 

#include  <dap.ext> 

#include  <dap_info.h> 

#include  "flags.def ' 


f Janguage Jnterface _layer( ) 

/*  This  proc  allows  the  user  to  interface  with  the  system.  */ 
I*  Input  and  output:  user  DAPLEX*/ 

{ 

int  num; 

int  stop;  /*  boolean  flag  */ 


#ifdef  EnExFlag 

printf  ("Enter  f _language_interface_layei\n"): 
fflush(stdout); 

#endif 

dap_init(); 

/*  initialize  several  ptrs  to  different  parts  of  the  user  structure 
for  later  use  */ 

dap_info_ptr  =  &(cuser_dap_ptr->ui_li_typc.li_dap)^*Which  should  be  NULL*/ 
tran_info_ptr  *  &(dap_info_ptr->dpi_dml_tran); 
first_req_ptr  =  &(tran_info_ptr->n_firsi_req); 
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currjreqjrtr  *  &(tran_mfo_ptr->tLcurr_req); 


/*  the  followings  are  inserted  for  testing  build_ddl_files  only  */ 
f* 

dap_info_ptr-xipi_curr_db.cdi_db.dn_fun  *  dbs_dap_head_ptr.dn_fun; 
f  build_ddl  files(); 

*/ 

f*  end  test  code  */ 

stop  =  FALSE; 
while  (stop  —  FALSE) 

{ 

/*  allow  user  choice  of  several  processing  operations  */ 

printf  ("NnEnter  type  of  operation  desiredNn"); 

printf  ("\t(l)  *  load  new  databaseNn"); 

printf  (”\t(p)  -  process  existing  databaseNn  "); 

printf  ("Mx)  -  return  to  the  MLDS/MDBS  system  menuNn’"); 

dap_info_ptr->dap_answer  =  get_ans(&num); 

switch  (dap_info_ptr->dap_answcr) 

{ 

case  T:  f*  user  desires  to  load  a  new  database  */ 
f_load_new(dap_info_ptr); 
break; 

case  'p':  /*  user  desires  to  process  an  existing  database  */ 
f_process_old(dap_info_ptr); 
break; 

case  'x':  /*  user  desires  to  exit  to  the  operating  system  */ 

/*  database  schemas  must  be  saved  back  to  files  */ 

/*  and  also  associated  memory  must  be  freed  up 

f_save_catalogs();*/ 

stop  *  TRUE; 

break; 

default;  /*  user  did  not  select  a  valid  choice  from  the  menu  */ 
printf  ("NnError  -  invalid  operation  selectedNn"); 
printf  ("Please  pick  againNn"); 
break; 

}  I*  end  switch  */ 

/*  return  to  main  menu  */ 

}/*  end  while*/ 
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tifdef  EnExFlag 

printf  ("Exit  f_language_interface_lay  oNn  " ) ; 
fflush(stdout); 

#cndif 

}  I*  end  f_language_intetface_layer  */ 


f_load_new(dap_info_ptr) 


struct  dapjnfo  *dap  _info_ptr; 


/*  This  proc  accomplishes  the  following:  */ 

/*  (1 )  determines  if  the  new  database  name  already  exists,  either  */ 
/*  in  the  schema  linked  list  or  as  a  .DBname.cat’  file,  */ 

/*  (2)  adds  a  new  header  node  to  the  list  of  schemas,  */ 

/*  (3)  determines  the  user  input  mode  (file/terminal),  */ 


/*  (4)  reads  the  user  input  and  forwards  it  to  the  parser,  and  */ 
/*  (S)  calls  the  routine  that  builds  the  template/descriptor  files  */ 


{ 

int  num; 
int  more_input; 

char  filler[MaxPathLen+FNLength+2J; 
struct  ddl_info  *ddl_info_alloc(); 
dap_dbid_node  *new_ptr, 

*db_ptr, 

*dap_dbid_node_alloc(); 

FILE  *cat_fd; 

#ifdef  EnExFlag 
printf  ("Enter  f_load_new\n"); 
fflush(stdout); 

#endif 

dap_info _ptr->dap_operation  =  CreateDB; 

f*  prompt  user  for  name  of  new  database  */ 
printf  ("[7;7m\nEnter  name  of  database  — >[0;0m  "); 
readstr  (stdin,  dap_info_jptr->dpi_curr_db.cdi_dbname); 
to_caps(dap_info_ptr->dpi_curr_db.cdi_dbname); 

f*  See  where  this  comes  from  in  the  DAP  unit*/ 


too 


db_ptr  *  dbs_dap_head_ptr.dn_dap;/* I  don't  know  what  this  docs  but  hopefully  points 
to  a  NULL  space  Could  have  had  data  from  before*/ 


while  (db_ptr) 

{ 

/*  determine  if  new  database  name  already  exists  */ 
f*  by  traversing  list  of  entity-oriented  db  schemas  */ 
if  ( !  ( strcmp(db_ptr-  >dap_db_name , 

dap_info_ptr->dpi_curT_db.cdi_dbname))) 

{ 

printf  ("NnError  -  db  name  already  existsNn"); 
printf  ("t7;7mPlease  reenter  db  name  — >[0;0m  "); 
readstr  (stdin,  dap_info_ptr->dpi_curr_db.cdi_dbname); 

to_caps  (dap_info_ptr->dpi_curr_db.cdLdbname); 
db_ptr  =  dbs_dap_head_ptr.dn_dap;/*Ensures  we  start  at  the  top  of  the  list  to  look*/ 
}  /*  end  if  */ 
else 

/*  increment  to  next  database  */ 
db_ptr  =  db_ptr->ncxt_db; 

}  /*  end  while  */ 

dap_info_ptr->dpi_ddl_files  =  ddl_info_alloc(); 
strcpy(DDESCFname,  dap_info_ptr->dpi_curr_db.cdLdbname): 
strcat(DDESCFname,  ".d"); 

strcpy(DTEMPFname,  dap_info_ptr->dpi_curr_db.cdi_dbname); 
strcat(DTEMPFname,  ”.t"); 

/*  continue  -  user  input  a  valid  'new'  database  name  */ 

/*  add  new  header  node  to  the  list  of  schemas  and  fill-in  db  name  */ 

/*  and  init  relevant  user  stucture  ptrs  */ 

new_ptr  =  dap_dbid_node_alloc(); 


/*  Ensure  all  our  constructs  are  ready  to  go*/ 

strcpy  (new_ptr->dap_db_name,  dap_info_ptr->dpi_curr_db.cdi_dbname); 

dap_info_ptr->dpi_curr_db.cdi_dbtype  =  DAP; 

new_ptr->number_of_entitys  =  0; 

new_ptr->first_entity  =  NULL; 

new_ptr->object_counter  =  0; 

ncw_ptr->first_alias  =  NULL; 

new_ptr->number_of_aliases  =  0; 

new_ptr->next_db  »  dbs_dap_head_ptr.dn_dap; 
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d  bs_d  ap_head_ptr  .d  n_dap  =  new_ptr; 
dapJnfo_ptr->dpi_curr_db.cdi_db.dn_dap  =  new_ptr; 

/*  check  for  user's  mode  of  input  */ 
morejnput  *  TRUE; 
while  (more_input) 

{ 

I*  determine  user's  mode  of  input  */ 

printf  ("NnEnter  mode  of  input  dcsircdSn"); 

printf  ("Vt(f)  -  read  in  a  group  of  creates  from  a  fileNn"); 

printf  ("Nt(t)  -  read  in  creates  from  the  terminal\n"); 

printf  ("Vt(x)  -  return  to  the  main  menu\n”); 

dap  Jnfo_ptr->dap_answer  =  get_ans(&num); 

switch  (dap  Jnfo_ptr->dap_answer) 

{ 

case  'f :  /*  user  input  is  from  a  file  */ 

f_read_transaction_file(dap_info_ptr), 

/*  At  this  point  we  should  have  a  pointer  to  our  input  file*/ 
if  (dap_info_ptr->dap_error  !=  ErrReadFile) 

{ 

/*  file  contains  transactions  */ 
read_a_file(dap  _info_ptr); 

fclose(dap_info_ptr->dpi_file.fi_fname); 
/*  Make  sure  we  are  looking  in  the  correct  area  */ 

strcpy(dap_info_ptr->dpi_ddl_files->ddli_temp.fi_ftiame, 
add_path(filler,DTEMPFname)); 
strcpy(dap_info_ptr->dpi_ddLfiles->ddli_desc.fi_fname, 
add_path(filler,DDESCFname)); 
f_Kemel_Controller(dap_info_ptr); 
morejnput  =  FALSE; 

}  /*  end  if  */ 
break; 

case 't':  /*  user  input  is  from  the  terminal  */ 
fjread_terminal(dapJnfo_ptr); 

if  (dap  info_ptr->dap  error  !=  ErrReadFile) 

{ 

/*  user  input  transactions  */ 

rcad_a_file(dapJnfo_ptr); 

/*  Make  sure  we  are  looking  in  the  correct  area  */ 

strcpy(dapJnfo_ptr->dpi_ddl_files->ddli_temp.fi_fname, 


add_path(fillerJDTEMPFname)); 

strcpy(dap_info_pti->dpi_ddl_filcs->ddli_dcsc.fi_fnamc, 

add_path(fillcr,DDESCFname»; 

fJCemel_Controller(dap_info_ptr); 

more_input  =  FALSE; 

}  /*  end  if  */ 


break; 


case  'x':  /*  exit  back  to  LIL  */ 
more_input  =  FALSE; 
break; 

default:  /*  user  did  not  select  a  valid  choice  from  the  menu  */ 
printf  ("SnError  -  invalid  input  mode  selectedSn"); 
printf  ("Please  pick  againW); 
break; 

}  /*  end  switch  */ 

if  (dap_info_ptr->dap_error  ==  ErrCreateDB) 

more  input  =  FALSE;  /*  errors  in  creates  so  exit  this  loop  */ 
dap_info_ptr->dap_eiTor  =  NOErr; 

}  /*  end  while  */ 

#ifdef  EnExFlag 
printf  ("Exit  f_load_new\n"); 

#endif 


}  /*  end  f_load_new  */ 


f_process_old(dap_info_ptr ) 

/*  This  procedure  is  for  using  predefined  databases  */ 
struct  dap_info  *dap_info_ptr; 

{ 

FILE  *cat_fd; 

int  num,  stop; 

int  found  =  FALSE; 

int  exist  =  FALSE; 

char  file_name[FNLength  +  3], 

*record_file; 

char  filler[MaxPathLen+FNLength+2]; 

dap_dbid_node  *db_ptr; 
struct  ddl_info  *ddl_info_alloc(); 
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struct  tran_info  *tran  _info_alloc(); 

struct  abjreq_info  *ab_reqJnfo_alloc(); 

#ifdcf  EnExFlag 
printf  ("Enter  f_process_old\n“); 

#endif 

record_file  =  (char*)malloc(sizeof (char)*  100); 

/*  create  the  template  and  descriptor  structure  if  it  doesn't  already  exist*/ 
if  (dap_info_ptr->dpi_ddl_files  =  NULL) 
dap_info_ptr->dpi_ddl_files  =  ddl_info_alloc(); 

/*  prompt  user  for  name  of  existing  database  */ 
printf  (”[7;7m\nEnter  name  of  database  - — >[0:0m  ”); 
readstr  (stdin,  dap_info_ptr->dpi_curr_db.cdi_dbname); 
to_caps  (dap_info_ptr->dpi_curr_db.cdi_dbname); 
db_ptr  «  dbs_dap_head_ptr.dn_dap; 

/*  These  files  had  best  already  exist  */ 
strcpy(DDESCFname,  dap_info_ptr->dpi_curr_db.cdi_dbname); 
strcat(DDESCFname,  ”.d"); 

strcpy(DTEMPFnamc,  dap_info_ptr->dpi_curr_db.cdi_dbname); 
strcatCDTEMPFname,  ”.t"); 

while  (db_ptr) 

{ 

/*  determine  if  given  database  name  already  exists  *' 

/*  by  traversing  list  of  db  schemas  */ 
if  ((strcmp(db_ptr->dap_db_namc, 

dap_info  _ptr->dpi_curr_db.cdi_dbname))==  0) 

{ 

found  =  TRUE; 

dap_info_ptr->dpi_curr_db.cdi_db.dn_dap  =  db_ptr; 
dap_info_ptr->dpi_curr_db.cdi_dbtype  =  DAP; 

/*  assuming  it  has  already  its  own  temp  &  desc  files,  otherwise 
build  them  need  to  be  called.  */ 

strcpy(dap_info_ptr->dpi_ddLfiles->ddIi_temp.fi_fname, 

add_path(filler,DTEMPFname)); 

strcpy(dap_info_ptr->dpi_ddl_files->ddli_desc.fi_fname, 

add_path(filler,DDESCFname)); 

break; 

}  f*  end  if  */ 
else 
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/*  increment  to  next  database  */ 
db_ptr  ■  db_ptr->next_db; 

}  /*  end  while  */ 

if  (ffound) 

{ 

strcpy(DDBCat, V); 

strcat(DDBCat,  dap_info_ptr->dpi_curT_db.cdi_dbname); 
strcat(DDBCat,  ".t"); 
if  (cat_fd  =  fopen(DDBCat,  "r")) 

{ 

exist  =  TRUE; 

printf("\nl  have  already  a  database  .d  and  .t  files  with\n">; 
printf("the  same  name  from  previous  sessions.Nn”); 
printf("\nDo  you  want  to  use  them(y/n)?"); 
dap_info_ptr->dap_answer  =  get_ans(&num); 

if  (dap_info_ptr->dap_answer  ==  y') 

{ 

found  =  TRUE; 
fclose(cat_fd); 

dap_info_ptr->dap_operation  =  CreateDB; 

/♦Need  to  create  a  function  to  make  the  DB  from  the  .d  and  .t  files*/ 
f_load_catalog(dap_info_ptr); 

dapJnfo_ptr->dpi_curr_db.cdi_db.dn_dap  =  dbs_dap_head_ptr.dn_d 
dap_info_ptr->dpi_cun_db.cdi_dbtype  =  DAP; 

/*  assume  it  has  read  its  own  temp  &  desc  files 
else  other  problems  */ 

strcpy(dap_info_ptr->dpi_ddLfiles->ddli_temp.fi_fname, 

add_path(filler,DTEMPFname)>; 

strcpy(dap_info_ptr->dpi_ddl_files->ddli_desc.fi_fname, 

add_path(filler,DDESCFname)>; 

f_Kemel_Controller(dap_info_ptr); 

} 

else 

fclose(cat_fd); 

}  /*  end  if  cat_fd  */ 

}  /*  end  if  Ifound  */ 

if  (found) 
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{ 

/*  TI  in  MBDS  -  need  to  set  the  user  and  database  id  for  the  user  */ 

/*  DBL_S$Use(dap_info_ptr->dpi_cuiT_db.cdi_dbname); 

Tl_S$AssignDB(cuser_obj_ptr->ui_uid,  dap_info_ptr->dpi_curr_db.cdi_dbname) 
V 

stop  *  FALSE; 
while  (!(stop)) 

{ 

printf("\nEnter  your  choiceNn"); 
printf('\t(d)  -  display  schemaNn"); 
printf("\t(m)  -  mass  load  from  a  data  file\n”): 
printf("\t(s)  -  send  data  to  a  file  for  mass  load\n"); 
printf("\t(f)  -  read  in  a  group  of  queries  from  a  file\n"); 
printf("\t(t)  -  read  in  queries  from  the  terminaINn"); 
printf("\t(x)  -  return  to  previous  menu\n"); 
dap_info_ptr->dap_answer  =  get_ans(&num); 

switch  (dap_info_j>tr->dap_answer) 

{ 

case 'd': 

f_display_schema(dap_info_ptr); 

break; 

case 'm': 

f_read_transaction_file(dap_info_ptr); 

dap_massJoad(dap_info_ptr); 

break; 

case  's': 

f_read _reciept_file(dap_inf o_p  tr ) ; 
dap_mass_dump(dap_info_ptr) ; 
break; 

case  'f: 

f_rcad_transaction_file(dap_info_ptr); 
f_read_file(dap_info_ptr,f_tran_info_ptr); 
f_queries_to_KMS(dap_info_ptr,f_tran_info_ptr); 
f_free_requests(f_tran_info_ptr); 
break; 
case ’t*: 

f_read_terminal(dap_info_ptr); 

f_read_file(dap_info_ptr,f_tran_info_ptr); 

f_queries_to_KMS(dap_info_ptr,f_tran_info_ptr); 
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f_frce_rcqucsts(f_tran_info_ptr); 
break; 
case  'x': 

stop  *  TRUE; 
break; 
default: 

printfC\nError  invalid  operation  selected\n"); 

printfC'Please  pick  againNn”); 

break; 

}  I*  end  switch  */ 

}  /*  end  while  !stop  */ 

}  /*  end  if  found  */ 
else 

if  (lexist) 

printf  ("Error  -  db  name  does  not  existW); 

#ifdef  EnExFlag 
printf  ("Exit  f_process_old\n"); 

#endif 

}  /*  end  f_process_old  */ 


f_display_schema(dap_info_ptr) 

/*  Procedure  for  displaying  a  functional  database  schema  */ 

/*  It  places  it  in  a  file  and  does  a  cat  Imore  on  the  file  */ 
struct  dap_info  *dap_info_ptr; 

{ 

dap_dbid_node  *db_ptr; 
dap_db_entity_node  *entity,*tmpent; 
dap_db_attrib_node  *attrib; 
int  ind; 

FILE  *fid; 
char  tmpstr[200]; 

char  *temp; 

temp=(char*)malloc(sizeof(char)*SNLength); 
dbjptr  =  dap_info_ptr->dpi_curr_db.cdi_db.dn_dap; 
fid  *fopen("schema","w"); 

fprintf(fid,,,VnDatabase  Name :  %s\n",db_ptr->dap_db_name); 

entity  *  db_ptr->first_entity; 

/*  For  each  ENTITY  real  entity  */ 
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while  (entity) 

{ 

ind  =  FALSE; 

attrib  »  entity- >first_attrib; 

/*  For  each  attribute  that's  not  a  QQ  *1 
while  (attrib) 

{ 

if  (strcmp(anrib->dap_attrib_name,"TEMP’')  &&  !strstr(attrib- 
>dap_attrib_name,"QQ")) 

{ 

if(!ind) 

{ 

ind*TRUE; 

fprintf(fid,”\nEntity:  %s\n",entity->dap_entity  name); 

} 

fprintf(fid,"%s(%s)  =  %s\n",attrib->dap_attrib_name,entity->dap_entity_name, 
attrib->range); 

}/*End  of  if  not  TEMP  or  name  with  #*/ 
attrib  =  attrib->next_attrib; 

}/*end  of  Attribute  search*/ 
entity  =  entity->next_entity; 

)/*  end  of  Entity  search*/ 

fclosc(fid); 

system("more  schema"); 
system("rm  schema"); 

}  /*  end  f_display_schema  */ 


aUr_type(entity^tring,temp) 

/*  Facilitates  the  search  for  an  entity  during  display  schema*/ 
dap_db_entity_node  *entity; 
char  *string; 
char  *temp; 

{ 

char  *temp2; 
int  length; 

#ifdef  EnExFlag 
printfC'Enter  attr_type  \n"); 
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fflush(stdout); 

#endif 


length  ■  strien(string); 
while  (entity) 

{ 

if(!stmcmp(entity->dap_entity_name,string,length)) 

{ 

temp2=  entity->dap_entity_name; 

temp2+=length, 

strcpy(temp,temp2); 

#ifdef  EnExFlag 
printf("Exit  attr_type  goodSn"); 
fflush(stdout); 

#endif 

return; 

}/*End  if  stmcmp  */ 

entity  *  entity- >next_entity; 

}/*End  While  entity*/  , 

#ifdef  EnExFlag 
printfO'Exit  attr_type  bad\n"); 
fflush(stdout); 

#endif 

strcpy(temp,"Unable  to  Locate"); 
return; 

}/*  End  of  attr_type*/ 


findaliasi  alias,entity  ,attri  b,temp) 

/*  Gets  alias  information  for  output  or  other  usage  */ 
dap_db_alias_node  *alias; 
char  *entity,  *attrib,  *temp; 

1 

#ifdef  EnExFlag 
printf("Enter  find_alias  \n"); 
fflush(stdout); 

#endif 
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white  (alias) 

{ 

if  ( !  strcrnp{entity  .alias- >dap_alias_ent  1 )  && 

!  strcmp(attrib,alias->dap_alias_ncw_namc ) ) 

( 

strcpy(tetnp^bas-xiap_alias_ent2); 

#ifdef  EnExFlag 
printf("Exit  find_alias  goodSn"); 
fflush(stdoot); 

#endif 

return; 

) 

alias  -  alias- >next_alias; 

} 

strcpy(tcmp,"Unable  to  Locate"); 

#ifdef  EnExFlag 
printf("Exit  fmd_alias  badVn"); 
fflush(stdout); 

#endif 

return; 
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f* 

*  File  Name:  Hkommon.c 

*  Source:  Ai^bs/greg/CfniUyn/LanglF/src/DAP/Lil/lilcorniTion.c 

*  This  file  contains  the  procedures  that  are  used  to  handle  the 
transactions  that  are  entered  by  the  user. 

*/ 

♦include  <stdio.h> 

♦include  <ctype.h> 

♦include  <strings.h> 

♦include  <licommdata.h> 

♦include  <dap_info.h> 

♦include  "flags.def ' 


f_queries_to_KMS(dap_info_ptr,f_tran_info_ptr) 

struct  tran_info  *f_tran_info _ptr; 
struct  dap_info  *dap_info_ptr; 

/*  This  routine  causes  the  queries  to  be  listed  on  the  screen.  */ 

/*  The  selection  menu  is  then  displayed  allowing  any  of  the  */ 

/*  queries  to  be  executed.  */ 


{ 

struct  req_info  *tm_info; 

int  proceed:  f*  boolean  flag  */ 

int  num; 


♦ifdef  EnExFlag 

printf  ("Enter  f_queries_to_KMS\n " ); 
♦endif 


num  =  0; 

f_list_queries(f_tran_inf o_ptr) ; 

proceed  *  TRUE; 

while  (proceed  =*  TRUE) 

{ 

printf  ("NnPick  the  number  or  letter  of  the  action  desiredSn"); 
printf  ("Ntfnum)  -  execute  one  of  the  preceeding  queriesNn"); 
printf  ("Nt(d)  -  redisplay  the  file  of  queriesNn"); 
printf  ("Nt(x)  -  return  to  the  previous  menuNn "); 
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dap_info_ptr->dap_answer  =  gct_ans(&num); 

switch  (dap __info_ptr->dap_answer) 

{ 

case  'n' :  /*  execute  one  of  the  queries  */ 
if  (num  >  0  &&  num  <=  f_tran_inf o_ptr-  >ti_no_req ) 

{ 

f_find_query  (num,f_tran_info_ptr); 

/*  This  is  the  default  value  for  operation  */ 

/*  If  not  a  retrieve  request,  this  value  is  reset  */ 

/*  in  dap_kemel_mapping_system  */ 

dap_info_ptr->dap_operation  =  ExecRetReq; 

/♦Entry  to  query  transaction  programs  */ 
translate_requst(dap_info_ptr,f_tran_info_ptr->ti_curr_req); 
if  (dap_info_ptr->dap_operauon  !=  ExecNoReq) 

{ 

if  (dap_info_ptr->dap_error  ==  NOErr) 

{ 

f  Kemel_Controller(dap_info_ptr); 

) 

else 

dap_info_ptr->dap_error  =  NOErr; 

} 

f_abdl_cleanup(dap_info_ptr); 

}  /♦  end  if  */ 

else 

printf  ("\nError  -  the  query  for  the  number  you  "); 
printf  ("selected  does  not  existNn"); 

printf  ("Please  pick  againW); 

}  /*  end  else  */ 


break; 

case ’d’ :  f*  redisplay  queries  */ 
f_list_queries(f_tran_info_ptr); 
break; 

case  'x' :  /*  exit  to  mode  menu  */ 
proceed  =  FALSE; 
f_tran_info_ptr->ti_noJrcq  =  0; 
break; 
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default :  /*  user  did  not  select  a  valid  choice  from  the  menu  */ 
printf  ("NnError  •  invalid  option  setectedVn"); 
printf  ("Please  pick  again\n'); 
bieak; 

}  /*  end  switch  */ 

}  /*  end  while  */ 

#ifdef  EnExFlag 

printf  ("Exit  f_queries_to_KMS\n " ); 

#endif 

}  /*  end  f_queries_to_KM  S  */ 


fJist_queries(f_tran_info_ptr) 
struct  tran.info  *f_tran_info_ptr, 

/*  This  routine  actually  prints  the  query  list  to  the  screen  */ 


struct  req_info  *f_curr_req_ptr. 

♦f_first_req_ptr; 

struct  temp_str_info  *req_ptr;  /*  per  to  a  line  of  a  query  */ 
int  i;  /*  the  number  of  the  query  */ 

int  firstjine;  /*  boolean  flag  */ 

FILE  *qry_fid;  /*  file  id  for  query  print  file  */ 


#ifdef  EnExFlag 
printf  ("Enter  f_list__queries\n"); 

#endif 

f_curr_jeq_ptr  *  &(f_tran_info_ptr->ti_curr_req) ; 
f_jfirst_req_ptr  *  &(f_tran_info_ptr->ti_first_req); 


i-i; 

f_curr_req_ptr->ri_dap_req  *  f_first_req_ptr->ri_dap_req; 
qry_fid  *  fopen(".qry_file",  "w"); 
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f+  loop  and  print  the  queries  until  there  are  no  more  */ 
while  (f_curr_req_ptr->ri_dap_req) 

{ 

req_ptr  *  f_curr_req_ptr->ri_dap_req->dpri_in_req; 
furst_line  «  TRUE; 
fprintf  (qry.fid,  ”Sn’ ); 
while  (req_ptr) 

1 

if  (firstjine) 

{ 

/*  first  line  of  a  query  so  print  the  number  of  it  first  */ 
fprintf  (qry_fid,  "\t%d\t  %s\n",  i,  req_ptr->tsi_str); 
first Jine  *  FALSE; 

}  /*  end  if  */ 
else 

fprintf  (qry_fid,  "\t\t  %s\n",  req_ptr->tsi_str); 
req_ptr  *  ieq_ptr->tsi_next; 

}  /*  end  while  */ 

f_cunr_req_ptr->ri_dap_req  =  f_curT_req_ptr->ri_dap_req->dpri_next_req; 
i++; 

}  /*  end  while  *1 

fclosef  qry_fid );  /*  close  the  query  file  */ 

system("more  .qry.file");  /*  print  out  the  queries  */ 
systemC’rm  .qry_file"); 

#ifdef  EnExFlag 
printf  ("Exit  f_list_queries\n"); 

#endif 

}  /*  end  f_list_queries  */ 


f_find_query  ( n  um,f_tran_info_ptr ) 

int  num;  f*  specified  query  to  be  executed  */ 
struct  tran_info  *f_tran_info_ptr, 

{ 

struct  temp_str_info  *temp_str; 
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struct  reqjnfo  *f_curr_req_ptr, 

*f_first_req_ptr; 
int  i;  /*  counter  */ 

/*  This  function  walks  down  the  query  list  to  the  (num)th  */ 

/*  query  and  passes  back  the  ptr  to  that  query  */ 

#ifdef  EnExFlag 
printf  ("Enter  f_find_query\n"); 

#endif 

f_curr_req_ptr  *  &(f_tran_info_ptr->ti_curr_req); 
f_first_req_ptr  =  &(f_tran_info_ptr->ti_first_req); 

/*  set  the  current  ptr  to  the  first  ptr  */ 
f_curr_req_ptr->ri_dap_req  =  f_first_req_ptr->ri_dap_req; 
for  (i  =  1 ;  i  <  num;  i++) 

f_curr_rcq_ptr->ri_dap_rcq  =  f_curr_req_ptr->ri_dap_req->dpri_next_rcq; 


f_tran_info_ptr->ti_curr_req  =  *f_curr_req_ptr; 
temp_str  =  f_curr_req_ptr->ri_dap_req->dpri_in_req; 

/♦printf  ("%s\n",  f_curr_req_ptr->ri_dap_req->dpri_req  );*/ 
while  (temp_str) 

{ 

printf  ("%s\n",  temp_str->tsi_str); 
temp_str  *  temp_str->tsi_next; 

) 

printf  ("\n"); 

#ifdef  EnExFlag 
printf  ("Exit  f_find_queryW); 

#endif 

}  /*  end  f_find_query  ♦/ 

f_free_requests(f_tran_info_ptr) 
struct  tran_info  *f_tran_info_ptr; 


I*  This  function  frees  all  memory  reserved  by  the  transaction  list  */ 
struct  temp_str_info  *temp_str_ptr; 
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struct  dap_req  Jnfo  *curr_req_ptr; 

#ifdcf  EnExFlag 

printf  ("Enter  f_£ree_requests\n" ) ; 

#endif 

/*  set  the  current  ptr  to  the  first  ptr  */ 

curr_req_ptr  «=  f_tran_info_ptr->ti_first_req.ri_dap_req; 

while  (curr_req_ptr  !=  NULL) 

( 

curr_req_ptr  =  curr_req_ptr->dpri_next_req; 

free  (f_tran_info_ptr->ti_first_req.ri_dap_req->dpri_req); 

temp_str_ptr  =  f_tran_info_ptr->ti_first_req.ri_dap_req->dpri_in_req; 
while  (temp_str_ptr) 

{ 

temp_str_ptr  =  temp_str_ptr->tsi_next; 
free  (f_tran_info_ptr->ti_first_req.ri_dap_req->dpri_in_req); 
f_tran_info_ptr->ti_first_req.ri_dap_req->dpri_in_req  =  temp_str_ptr; 
}  /*  end  while  */ 

free  (f_tran_info_ptr->ti_first_req.ri_dap_req); 
f_tran_info_ptr->ti_first_req.ri_dap_req  =  curr_req_ptr; 

}  /*  end  while  */ 

#ifdef  EnExFlag 
printf  ("Exit  f_free_requests\n"); 

#endif 

}  /*  end  f_free_requests  */ 
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/* 

♦File Name:  load  data.c 

*  Source:  /u/mdbs/greg/CNTRL/Tl/LangIF/src/Dap/Lil/load_data.c 

*  This  file  contains  procedures  for  making  an  input  file  of  mass  data 

*/ 

#include  <stdio.h> 

#include  <string.h> 

#include  <ctype.h> 

#include  <licommdata.h> 

#ifndcf  DAPLEX JNFO 
#include  <dap_info.h> 

#include  "flags.def ' 

#endif 


dap_mass_dump(dap_info_ptr) 
/*  Places  backend  base  data  into  a  file  */ 

struct  dapjnfo  *dap_info_ptr; 


1 

dap_db_entity_node  *entity; 
dap_db_attrib_node  *  attribute; 
dap_dbid_node  *db_ptr; 

struct  temp_str_info  *value, 

♦temp,  *temp2, 

♦temp,  str  _info_alloc(); 
int  OddMark  =  TRUE; 

int  msg_type, 

done, 
ind  =  0; 

char  *query; 
char  *response; 

FILE  *load_file; 

/♦  values  for  these  two  depends  on  the  defines  in  tstint.def  (CNTRL/TI)  */ 
char  request[ONE_K],  /*  Added  request  length  */ 
crr_msg[ONE_K]; 

struct  Reqld  rid;  /*  Defined  in  licommdata.h  ♦/ 
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tifdef  EnExFlag 

printf("Enter  dap_mass_dump\ri'); 

#endif 

db_ptr  *  dap_info_ptr->dpi_curr_db.cdi_db.dn_dap; 
entity  =  db_ptr->first_entity; 
value  *  temp_strJnfo_alloc(); 
temp  *  value; 

/*  For  each  ENTITY  get  ALL  its  data  */ 
while  (entity) 

{ 

/*  ABDL  query  format  */ 

sprintf(temp->tsi_str,"[RETRIEVE(TEMP=%s)(TEMP'\entity->dap_entity_addr); 
attribute  =  cntity->first_attrib; 

/*  We  need  EVERY  attribute  */ 
while  (attribute) 

{ 

if  (attribute->dap_attrib_type  !=  'E'  && 
attribute->dap_attrib_type  !=  ’G'  && 
attribute->dap_attrib_type  !=  'A') 

I 

strcat(temp->tsi_str,","); 

strcat(temp->tsi_str,attribute->dap_attrib_addr); 

}/*end  if  attrib_type*/ 
attribute  =  attribute->next_attrib; 

}/*end  while  attribute*/ 

strcat(temp->tsi_str,")] "); 
entity  =  entity->next_entity; 
if  (entity) 

{ 

temp->tsi_next  =  temp_str_info_alloc(); 
temp  =  temp->tsi_next; 

}/*end  if  entity*/ 

}/*end  while  entity*/ 

temp  =  value; 

load_file=dap_info_ptr->dpi_File.fi_fid; 
while  (temp) 

{ 

/*  Send  it  to  the  backend  for  retrieval  */ 

/*  The  rest  is  a  combo  of  KC  and  KFS  */ 
Tl_S$TrafUnit(dap_info_ptr->dpi_curT_db.cdi_dbname,temp->tsi_str); 
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response  «  dtp_inf o_ptr-  >dpi_kf s_data  .kf si_dap .  kdi_re  spon  se ; 
done  *  FALSE; 

while  (!done)/*Not  all  responses  for  the  cunem  request  have  been  received*/ 

TI_R$Message(),/*xeceivc  message  from  MBDS*/ 

msg_type  =  TI_R$Type();  /*  get  the  message  type  of  the  received  message*/ 

switch(msg_type)  /*  Is  the  response  correct  or  are  there  errors?  */ 

{ 

case  CH_ReqRes:  /*  The  response  is  correct  */ 
TI_R$ReqRes(&rid,response);  /*  Receive  the  results  */ 

done  =  f_chk_if_Iast_response(dap_info_ptr);  /*Are  we  done  */ 
++response;/*Skip  initial  [  */ 
query  =  response; 
while(*response  !=  CSignal) 

1 

if  (!strcmp(query response)  &&  ind) 
fprintf(load_file,"\n"); 
fprintf(load_file,"%s  ".response); 
response+=(strlen(response)+ 1 ); 
ind++; 

} 

break; 

case  ReqsWithErr: 

TI_R$EiTorMessage(request,erT_msg); 
TI_ErrRes_output(request.err_msg); 
return  0; 
break; 

default: 

printf("Dlegal  msg_type  =  %d  received  .Nn",  msg_type); 
break; 


}  f*  End  switch  */ 

}  /*  End  while  not  done  */ 
temp  =  temp->tsi_next; 
}/*end  of  while  temp  loop*/ 
fprintf(load_file,"Vi$$Sn"); 
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/*  Reset  the  External  from  MBDS  */ 
dap_info_ptr->dpi_kc_data  =  value; 
fclose(load_file); 

#ifdef  EnExFlag 

printf("Exit  dap_mass_dump\n"); 
#endif 
) 


/* 

*  File  Name:  meta_d_t.c 

*  Source:  /u/mdbs/grcg/ChTTTUVTI/LangIF/src/Dap/Kms/meta_cl_t.c 

*  This  file  contains  procedures  for  the  creation  of  the  two  metadata 
files,  the  descriptor  and  the  template  files,  from  the  dap_db_node. 

* 

*/ 


#include  <stdlib.h> 
#include  <string.h> 
#include  <stdio.h> 
#include  <licommdata.h> 
#ifndef  DAPJNFO 
#include  <dap_info.h> 
#endif 


create_t_file(d  b_pt  r ) 

/*  Function  that  creates  the  .t  and  d  files  that  contain  metadata  for  MDBS  */ 
int 

dap_dbid_node  *db_ptr, 

{ 

dap_db_entity_node  *cunent_entity_node; 
dap_db_attrib_node  *current_attrib_node; 

FILE  *  t_out; 

FILE  *  d_out; 

char  filler[MaxPathLen+FNLength+3]; 

/*  open  metadata  .t  file.  Format  is  FILENAME.t  */ 
d_out  *  fopen(add_path(filler,DDESCFname),  "w"); 

/*  open  metadata  .d  file.  Format  is  FILENAMES  */ 
t_out  =  fopen(add_path(filler,DTEMPFname),  "w"); 

/*  output  database  name  and  number  of  entities  for  .t  */ 
fprintf(t_out,"%s  \n",  db_ptr->dap_db_name); 
fprintf(t_out,  db_ptr->number_of_entitys); 

I*  output  database  name  and  "TEMP  b  s"  for  .d  */ 
fprintf(d_out,"%s  \n",  db_ptr->dap_db_name); 
fprintf(d_out,"TEMP  b  s\n"); 
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/*  traverse  the  entity  linked  list  */ 
cunent_entity_node  =  db_ptr->first_entity; 
while(current  entity  .node) 

{ 

t*  for  each  entity  output  it's  name  and  number  of  attributes  for  t  */ 

f*  Add  Temp  as  first  attribute  (also  add  1  to  attrib  count)  */ 

fprintf(t_out,"%d  \n",  current_entity_node->number_of_attribs+l ); 

strcpy(filler,current_entity_node*>dap_entity_addr); 

abdl_form(filler); 

fprintf(t_out,"%s  \n",  filler); 

fprintf(t_out,"TEMP  s\n"); 

current_attrib_node  =  current_entity_node->first_attrib; 
f*  for  each  entity  output "!  "  followed  by  it's  name  for  .d  */ 
fprintf(d_outt"!  4s  \n",  filler); 

/*  traverse  the  attribute  linked  list  for  current  entity  */ 
while  (current_attrib_node) 

1 

/*  for  each  attribute  type  out  it's  name  and  type  .t  */ 

/*  Some  attributes  produce  no  ouput  for  .d  */ 
if  (current_attrib_node->dap_attri  b_type ! ='E  && 
current_attrib_node->dap_attri  b.type ! = G '  && 
current_attrib_nodc->dap_attri  b_type  !=' A  ’) 

( 

fprintf(t_out,"%s  %c  \n",current_attrib_node->dap_attrib_addr. 
tolower(current  attrib_node->dap_attrib_type)); 

} 

current_attrib_node  =  current_attrib_node->next_attrib; 

} 

/*  get  next  entity  and  repeat  loop  */ 
cunrent_entity_node  =  current.entity.node^next.entity; 

}  /*  end  while  */ 

/*  End  of  file  marker  for  .d  is  and  '$'  each  on  seperate  line  */ 

fprintf(d_out,"@\n"); 

fprintf(d_out,"$\n"); 

/*  close  .d  and  .t  output  files  */ 
fclose(t_out); 
fclose(d_out); 
return  1; 
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/* 

*  File  Name:  mss  joad.c 

*  Source:  /u/mdbs/grcg/CNTRL/Tl/LangIF/src/Dap/Kms/mss_Ioad.c 

*  This  file  contains  procedures  for  the  loading  of  base  data  directly 
from  a  data  file  to  the  MDBS. 

« 

*/ 

♦include  <stdio.h> 

#include  <ctype.h> 

#include  <strings.h> 

#include  <licommdata.h> 

#include  <dap_info.h> 

♦include  "flags.def ’ 


dap_mass_load(dap_info_ptr,file_name) 

struct  dapjnfo  *dap_info_ptr; 
char  *file_name; 


{ 

FILE  *mass_load_fid; 

char  insert[MaxPathLen],  templ[InputCols); 

char  temp[InputCols],*  token  1  ,*token2,*strtok(); 

char  query[ONE_K]; 

dap_dbid_node  *db_ptr; 

dap_db_attrib_node  *attrib; 

int  counter=0; 

#ifdef  EnExFlag 
printfC'Enter  dap_mss_load\n"); 

♦endif 

/*  Finds  the  location  of  the  Hie  containing  the  data  */ 
mass_load_fid  =  dapjnfo  j>tr->dpLfile.fi  Jid; 

db_ptr  «  dap_info_ptr->dpi_curr_db.cdi_db.dn_dap; 
fgets(temp,  InputCols,  mass Joad.fid); 
counter++; 

dap_info_ptr->dap_operation  =  ExecInsReq; 

/*  Special  end  of  data  file  marker  */ 
while  (!strstr(temp, "$$")) 
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{ 

smok(tcmp,HSn")^*Rcinoves  any  \n  if  present*/ 
tokenl«strtok(temp," "); 

/*  Places  it  in  the  ABDL  transaction  format  */ 
sprintf(query,"lINSERT(<%s,%s>",tokenl,stnok(NULL,'' ")); 
token  l=strtok(NULL," "); 
while(tokenl) 

{ 

sprintf(templ,",<%s,%s>",tokenl .strtokCNULL," ")); 
strcat(query  .temp  1 ); 
token  l=strtok(NULL," "); 

) 

strcat(query, ")]"); 

/*  Sends  the  data  to  the  backends  */ 

TI_S$TrafUnit(dap_info_ptr-  >dpi_cunr_db.cdi_d  bname  .query ); 
/*  Ensures  the  ABDL  is  done  */ 
dap_chk_responsesJcft(dapJnfo_ptr); 

Tl_finishO; 

/*  An  indicator  to  let  users  know  they've  not  been  forgotten  */ 
if(!(counter%5)){  printf("%d  ".counter);  fflush(stdout); } 
counter++; 

fgets(temp,  InputCols,  mass_load_fid); 

) 

/*  Reset  the  object/entity  instance  counter  */ 

db_ptr->objcct_counter=counter; 

printf("Sn"); 

#ifdef  EnExFlag 
printf("Exit  dap_mss_load\n"); 

#endif 
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/* 

*  File  Name:  node  entry.c 

*  Source:  Ai/nxibVgrcg/CNTRL/Tl/LangIF/src/Dap/Kms/nodc_entry.c 

*  This  tile  contains  procedures  for  creating  and  adding  new  nodes  to 
the  dap_dbid_node  structure. 

* 

*/ 


#include  <stdio.h> 
♦include  <stdlib.h> 
♦include  <licommdata.h> 
♦ifndef  DAPLEX_INFO 
♦include  <dap_info.h> 
♦include  "flags.def" 
♦endif 


void  add_new_attrib(dap_start,  entity,  name,  kind,  entity2,  name2 ) 

/*  Adds  a  new  attribute  to  an  entity  */ 
struct  dap_db Jd_node  *dap_start; 
char  ‘entity; 
char  *name; 
char  kind; 
char  *entity2; 
char  *name2; 

< 

char  tcmp_str[ONE_K]; 
dap_db_entity_node  ‘start; 

dap_db_attrib_node  *temp_ptr,*dap_db_attrib_nodc_alloc(); 

start  =  dap_start->first_entity; 
while  (strcmp(start->dap_entity_name, entity)) 
start=start->next_entity; 
if  (kind  &&  kind  !='A') 

{ 

(start->number_of_attribs)++;/*Increase  the  number  of  attributes*/ 

} 

/♦Make  room  for  new  node  and  names*/ 
temp_ptr  *  dap_db_attrib_node_alloc(); 

temp_ptr->dap_attrib_name  =  (char*)  malloc  (sizcof(char)*strlen(name)+l ); 
temp_ptr->range  =  (char*)  malloc  (sizeof(char)*strlen(entity2)+l); 
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temp _ptr->dap_attrib_addr  *  (char*)  malloc  (sizeof(char)*(ANLength+2)); 


/♦put  values  into  strings*/ 
strcpy(temp_ptr->range,  entity2); 
strcpy(temp_ptr->dap_attrib_name,  name); 

/If  it  is  an  entity  to  entity  function  fix  the  address*/ 
if  (kind  —  ’F) 

{ 

sprintf(temp_str,"%s_^s",name, entity); 
abdl_form(temp__str); 

stmcpy(temp  _ptr->dap_attrib_addr,  temp_str,ANLength); 

) 

/If  it  is  an  alias  function  fix  the  address*/ 
else  if  (kind  *»  'A') 

I 

sprintf(temp_str,"%s_%s,\name2,entity2); 

abdl_form(temp_str); 

stmcpy(temp_ptr->dap_attrib_addr,  temp_str,ANLength); 

} 

/*  Otherwise  it  is  straight  forward.  Composites  done  elsewhere*/ 
else  stmcpy(temp_ptr->dap_attrib_addr,  name.ANLength); 
temp_ptr->dap_attrib_addr[ANLength]=V)’; 
temp_ptr->dap_attrib_type  =  kind; 

/♦Adjust  the  pointers*/ 
temp_ptr->next_attrib  =  stan->first_attrib; 
start- >first_attrib  *  tempjptr, 

return; 

) 


void  addnewentity  (start,  name) 

struct  dap_db_id_node  *start; 
char  *name; 

{ 

dap_db_entity_node  *temp,*dap_entity_node_alloc(); 
char*  attrib_name; 

(start->number_of_entitysH+;/* Increase  the  number  of  entities*/ 

/♦Make  room  for  new  node  and  names*/ 
temp  =  dap_entity_node_alloc(); 
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iemp->dap_emity_name  *  (char*)  mailoc  (sizeof(char)*(strlen(name)+l)); 
*en^>*>dapjcntity_addr  *  (char*)  mailoc  (sizeof(char  )*(  ANLength+2 ) ); 
attrib_name  *  (char*)  mailoc  (sizeof(char)*(strlen(name)+2)); 


/♦put  values  into  strings*/ 
temp->number_of_attribs  *  0; 
temp->first_attrib  =  NULL; 
strcpy(temp->dap_entity_name,  name); 
stmcpy(temp->dap_entity_addr,  name.ANLength); 
temp-  >dap_entity  _addr{  ANLen  gth ) = NO'; 

/*  Remember  it  is  really  an  attribute  value  */ 
abdl_foim(temp->dap_entity_addr); 

/♦Adjust  the  pointers*/ 
temp->next_entity  =  start->first_entity; 
start->first_entity  «=  temp; 

/♦New  entity  needs  a  new  identification  attribute*/ 
strcpy(attrib_name,  ID(name)); 
add_ncw_attrib(start,  name,  attrib_name,  T); 
free(attrib_name); 
return; 

} 


void  add_new_alias(start,  newname,  old  name,  new_entity ,  old  entity ) 

struct  dap_db_id_node*  start; 
char  *new_name; 
char  *old_name; 
char  *new_entity; 
char  *old_entity; 

{ 

dap_db_alias_node  *temp; 

(start- >number_of_aliases)++;/*IncTease  the  number  of  aliases*/ 

/♦Make  room  for  new  node  and  names*/ 
temp  =  (dap_db_alias_node*)  mailoc  (sizeof(dap_db_alias_node)); 
temp->dap_alias_new_name  *  (char*)  mailoc  (sizeof(char)*strlen(new_name)+l); 
temp->dap_alias_old_name  *  (char*)  mailoc  (sizeof(char)*strlen(old_name)+l); 
temp->dap_alias_ent  1  =  (char*)  mailoc  (sizeof(char)*strlen(new_entity)+l); 
temp->dap_alias_ent2  =  (char*)  mailoc  (sizeof(char)*strlen(old_entity)+l); 
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/•put  values  into  strings*/ 
strcpy(temp->dap_alias_new_name,  new_name); 
strcpy(temp->dap_aIias_old_name,  old_name); 
strepy  (temp-  >dap_ali  as_ent  1 ,  new_entity); 
strcpy(temp->dap_alias_em21  old.endty); 

/•Adjust  die  pointers*/ 
temp->next_alias  -  start- >first_ali as; 
start->first_alias  =  temp; 


return; 

) 


void  make_composite(db_node,  tokl,  tok2,  tok3,  tok4,  tok5) 

/*  composite  function  attribute  nodes  have  special  requirements  */ 
dap_dbid_node  *db_node; 
char  *tokl; 
char  *tok2; 
char  *tok3; 
char  *tok4; 
char  *tok5; 

dap_db_entity_node  *entity; 

dap_db_attrib_node  *temp,  *dap_db_attrib_node_alloc(); 
char  *range_value(),  *range; 

#ifdef  EnExFlag 

printf  ("Enter  make_composite\n"); 
fflush(stdout); 

#endif 

entity  =  db_node->first_entity; 

/*  Find  die  proper  entity  */ 
while  (strcmp(endty->dap_entity_name(  tok2)) 

{ 

entity  *  entity->next_entity; 

} 

/*  Get  ready  to  add  a  new  attribute  to  the  entity  •/ 
temp  *  dap_d  o_attrib_node_alloc() ; 

temp->dap_attrib_name  =  (char*)malloc(sizeof(char)*(strlen(tok  1 )+ 1 )); 

/*  Place  the  data  into  the  appropriate  areas  •/ 
strcpy(temp->dap_attrib_name,  tokl); 
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temp->dap_attrib_type  =  G'; 
range  =  range_value(db_node,tok4,tok5); 
temp->range  *  range_value(db_node,tok3,range); 
temp->dap_attrib_addr  =  (char*)malloc(sizeof(char)*(InputCols+l)); 
sprintf (temp->dap_attri b_addr , " % s( % s )  &  %s(%s)=%s  ",tok3,range1tok4>tok5jangc): 
/*  Readjust  the  pointers  */ 
temp->next_attrib  =  entity->first_attrib; 
entity->first_attrib  =  temp; 

#ifdef  EnExFlag 

printf  ("Exit  make_composite\n"); 
fflush(stdout); 

#endif 


) 


/ * 

*  File  Name:  query.c 

*  Source:  /Wnxlbs/grcg/CNTRL/TVLanglF/src/Dap/Kms/query.c 

*  This  program  parses  and  processes  the  DAPLEX  statements  FOR  and 
RETRIEVE. 

*1 

tdefine  ONE  1 

#define  REST  0 

#define  TRUE  1 

#define  FALSE  0 

#deFineLET  0 

#define  SUCH_THAT  1 

#define  RETRIEVE  2 

#dcfine  TOKEN_LENGTH  80 

#define  ELEMENT_NAME_LENGTH  6 

#define  MAX.LEN  200 

#define  MAX_LEN_ABDL  200 

#include  <stdio.h> 

#include  <strings.h> 

#include  <licommdaia.h> 

#include  <stdlib.h> 

#include  "flags.def ' 

#ifndef  DAPLEX_INFO 
#include  <dap_info.h> 

#endif 


int  is_integer(i) 

/*  This  program  checks  to  see  if  the  passed  character  value 
represents  an  integer.  If  it  is  an  integer  a  1  is  returned 
otherwise  a  0  is  returned.  */ 
char  *i; 

{ 

int  j; 

#ifdef  EnExFlag 

printf("Into  the  Integer  Function.Nn"); 
fflush(stdout); 

#endif 
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for(jmO;j<strlen(i);j-M-) 

< 

if(!isdigit(ijj]))  return  0; 

} 

#ifdef  EnExFIag 

printfC'Exiting  the  integer  Functionin’’); 
fflush(stdout); 

#endif 

return  1; 

} 


int  is_real(r) 

/*  This  program  checks  to  see  if  the  passed  character  value  represents 
a  real  number.  If  it  is  a  real  number  then  a  1  is  returned  otherwise 
a  0  is  returned.*/ 
char  *r; 

I 

intj; 

int  decimal  =0; 
for(j=0;j<strlen(r);j++) 

#ifdef  EnExFIag 

printfC'Into  the  Real  Functionin''); 
fflush(stdout); 

#endif 

for(j=0;j<strlen(r);j++) 

for(j=0;j<strlen(r);j++) 

I 

if(!isdigit(r[j]))  return  0; 

{ 

if(r[j]  ==  &&  Idecimal) 
decimal ++; 
else 
{ 

#ifdef  EnExFIag 

printfO'Exit  the  Real  Function  returning  a  Oin"); 
fflush(stdout); 
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#endif 


return  0; 

) 

} 

} 

#ifdef  EnExFlag 

printf("Exit  the  Real  Function  returning  a  l.W); 
fflush(stdout); 

#endif 

return  1; 

1 


linked_list_node*  add_!inkedjist(name,  value,  linked_list_head_ptr) 

/*  This  program  adds  an  attribute  name  and  value  to  the  linked  list 
pointed  to  by  a  pointer  passed  by  the  user.  These  linked  lists  are 
then  used  to  create  compound  ABDL  RETRIEVES  and  INSERT  statements 
(done  by  other  functions).*/ 
char  *name; 
char  *value; 

linked_list_node  *linked_list_head_ptr; 

{ 

linked_list_node  *linked_list_ptr; 

#ifdef  EnExFlag 

printf("Into  the  Insert  linked  list  Function.Nn"); 
fflush(stdout); 

#endif 

/*  create  space  for  new  linked  Jist  node  */ 

linked_list_ptr  =  (linked_list_node*)malloc(sizeof(linked_list_node)); 
linked_list_ptr->attrib_name=(char*)malloc(sizeof(char)*strlen(name)+ 1 ); 
linked_list_ptr->attrib_value=(char*)malloc(sizeof(char)*strlen(value)+ 1 ); 

/*  copy  the  attribute  name  and  value  to  be  inserted  into  db  */ 
strcpy(linked_list_ptr->attrib_name,  name); 
strcpy(linked_list_ptr->attrib_yalue,  value); 

I*  update  the  necessary  pointers  in  list  */ 
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linked _Ust_ptr->next  =  linked Jist_head_ptr, 
linked  listhead  ptr  *  linked_list_ptr; 

#ifdef  EnExFlag 

printf("Exit  the  Insert  linked  list  Function.Nn"); 
fflush(stdout); 

#endif 

return  linked _list_head_ptr, 

1 


char*  ID(tok_name) 

/*  This  program  makes  a  4  letter  entity  id  from  a  string  passed  by 
the  user.  e.g.  If  the  user  passes  die  string(entity)  "Equipment"  then 
a  pointer  to  "EquiQQ"  is  returned.  If  the  string  is  less  titan  4 
characters  then  a  "QQ"  is  concatenated  to  the  entire  string, 
e.g.  if  "WRA"  is  passed  then  a  pointer  to  "WRAQQ"  is  returned.*/ 
char  *tok_name; 

{ 

static  char  entity_id[MAX_LEN]; 
int  tok_size  =  4; 

/*  tok_size=4  unless  token  size  is  <  4  (i.e.  string  length)  */ 
if  (strlen(tok_name)  <  4)  tok_size  =  strlen(tok_name); 
else  tok_size  =  4: 

#ifdef  EnExFlag 

printf(''lnto  the  Insert  ID  Function.Nn"); 
fflush(stdout); 

#endif 

stmcpy(cntity_id,  tok_name,  tok_size); 
entity_id[tok_size]=  ’Q’; 
entity_id[4-Kok_size]=  Q'; 
entity_id[+-Kok_size]=  NO'; 

#ifdef  EnExFlag 

printf(”Exit  the  Insert  ID  Function.Nn"); 
fflush(stdout); 

#endif 
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return  entity_id; 

}  /*End  of  make  entity  id  function  */ 


get_ptr_entify_addr(db_node,substring,tokl,tok2,tok3,tok4) 

/*  This  program  makes  a  pointer  entity  name.  A  pointer  entity  has 
attributes  which  are  entity  id's  which  contain  the  object  number 
of  the  entity  pointed  to.  The  user  passes  a  pointer  to  3  strings 
which  are  die  fuction  name,  and  two  endty  names.  The  pointer 
entity  name  is  these  3  strings  concatenated  together  (seperated  by 
The  program  also  verifies  that  the  two  entity  names  exist. 

For  example  if  the  user  sends  the  3  strings  "owner",  "Items”, 

"Location”  then  the  pointer  entity  name  is:  owner_ltems_Location 
The  program  also  checks  that  Items  and  Location  are  previouly 
defined  entiy  names.  The  entity  pointer  will  have  the  attributes 
Item#  and  Loca#.  These  attributes  will  contain  the  integer  value 
corresponding  to  the  object  counter  number  assigned  previously.*/ 

dap_dbid_node*  db_node; 
char  *substring; 
char  *tokl; 
char  *tok2; 
char  *tok3; 

char  *tok4;  /*pts  to  storage  area  for  new  name  */ 

i 

#ifdef  EnExFlag 

printf("Into  the  Insert  make  ptr  entity  name  FunctionAn"); 
fflush(stdout); 

#endif 

if  (substring) 

{ 

strcpy(tok3,strtok(substring,"  ")); 
strcpy(tok4,get_addr(db_node,'A',tok2,tok  1 )); 
if  (!strcmp(tok4,NOT_FOUND) ) 

{ 

ERROR(”Unknown  attribute  ”,tokl); 
return  (0); 

} 
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1 

else 

( 

ERRORC’Incomplete  Let  Statement  :\n",substring); 
return  (0); 

) 

#ifdef  EnExFlag 

printf("Exit  the  Insen  make  ptr  entity  name  function.Nn"); 
fflush(stdout); 

#endif 


}  /*End  of  make_ptr_entity _name  */ 


char  *get_token(req_j>tr,  tokentype) 

/*  This  program  returns  the  next  token  of  a  Daplex  request  query.  If 
the  user  passes  a  NULL  rcq_ptr  then  the  previous  query  is  used.  A 
non-NULL  string  means  get  token  from  the  new  query  string.  Token 
type  1  implies  get  the  next  individual  token,  a  0  implies  get  the 
rest  of  the  query  line.  Queries  are  made  up  of  numerous  query  lines 
*/ 

struct  temp_str_info  *req_ptr; 

int  token_type;/*  1  means  one  token  zero  means  rest  of  tokens  on 
line*/{ 

static  int  tokenjocation; 

static  sh  uct  temp_str_info  *current_line_ptr: 

static  char  process_line[MAX_LEN]; 

static  char  token[MAX_LEN]; 

static  char  null_string[l]  =  'VO'; 

int  last_token; 

int  i  =  0; 

#ifdef  EnExFlag 

printfO'Into  the  Get  Token  Function.Nn"); 
fflush(stdout); 

#endif 

if  (requptr)  /*if  true  then  new  query  to  parse  */ 

{ 

strcpy(process_line,req_ptr->tsi_str); 

cunent_line_ptr=req_ptf; 
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token_location«0; 

} 

/*  remove  leading  blanks  */ 

for  (;process_line[token_location]=  ;token_location+-t-); 

/♦get  new  quay  if  at  end  of  line*/ 
if  (process_line(token_location]  **  NO'II 
process_line[token_location]=  Nn) 

{ 

if  (cunent_line_ptr->tsi_next) 

{ 

current_line_ptr=curTent_line_ptr->tsi_next; 
strcpy(process_line,  current_line_ptr->tsi_str); 
for(token_location=0;process_line[token_location]==' 
token__location++);  /*remove  leading  spaces*/ 

I 

else 

{ 

#ifdef  EnExFlag 

printf("Exit  the  Get  Token  Function  return  NULL.W); 
fflush(stdout); 

#endif 

retum(null_string); 

1 

} 

/*The  head  pointer  is  at  the  first  reasonable  character*/ 
if  (token_type) 

I 

for(last_token=token_location;process_line[last_token]!='  ’  && 
process Jine[lastjoken]!=>0’&&process_line[last_token]!='\n'; 
last  token ++) 

{ 

token  [i++]  *  process  line  [last_tokenJ; 

} 

} 

else 

{ 

for(last_token*token_locatiOn;  (last.token  <  strlen(process_line)  && 
process_line[last_token]!=V),&&  process_line[last_token]  !=Nn); 
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lastjoken++) 

{ 

token[i-M-] *  process_line  [last_token]; 

J 

} 

tokcn[i]»\D'; 

token_location  *  last.token; 

#ifdef  EnExFlag 

printf(*'Exit  the  Get  Token  Function  return  token(s).\n"); 
fflush(stdout); 

#endif 

/•capitalize  token  */ 

for(i=0;i<strlen(token);i++)  token(i]  *  toupper(token{ij); 
return  token; 

}  /*  end  of  get_token  function  •/ 


parse _lhs(str,tok  1,  temp) 

/*  This  function  parses  the  Left  Hand  side  of  the  =  sign.  The  user 
passes  a  string  in  the  form  of  token  1  (token2)  =  ?.  This  function 
parses  &  copies  token  1  and  token2  to  their  designated  storage  areas. 
?  denotes  that  there  are  numerous  possibilities  following  the  "=" 

*/ 

char  *str; 
char  *tokl; 
char  *temp; 

{ 

char  string[MAX_LEN]; 
char  substring[MAXJLEN]; 
char  *tok2; 
inti; 

#ifdcf  EnExFlag 

printff'Into  the  Insert  parsejhs  Function.Nn"); 
fflush(stdout); 

#endif 

tok2=(char*)nialloc(sizeof(char)*(strlen(temp)+ 1 )); 
strcpy(tok2,temp); 
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i  =  strcspn(str, 
stmcpy(  substring, strj); 
substring^]  «  NO'; 


if  (!strstr(substring,  ")"))/*  No  Right  Parens  */ 

{ 

ERROR("#l  Illegal  Definition  format.  Improper  Left  Hand  side",string); 
return  (0); 

1 


if  (strstr(substring,"  (”))/*  Case  one  or  two*/ 

{ 

strcpy(tokl,  strtok(substring,"  ”)); 
strcpy(tok2,  strtok(NULL," ")); 

if  (strcmp(tok2,"C))/*Means  tok2  is  not  Left  Parens  by  itself*/ 

{ 

tok2++; 

1 

else 


I 

strcpy(tok2,  strtok(NULL," ")); 

} 

} 

else/*Case  three  or  four*/ 

{ 

strcpy(tokl ,  strtok(substring,"(")); 
strcpy(tok2,  strtok(NULL,"  (")); 

}/*Should  be  down  to  good  tokens  only  otherwise  token  will  be  messed  up*/ 
if  (strcspn(tok2,")"))/*lt  had  best  be  the  last  character*/ 

I 

tok2[strlen(tok2)-l]  =  M3';/*Get  rid  of  the  last  character*/ 

) 


if  (strtok(NULL,"  ”))/*Means  more  after  right  parens  and  before  =  */ 


( 

ERROR("#2  Illegal  Definition  format.  Improper  Left  Hand  side",string); 
return  (0); 

} 

strcpy(temp,tok2); 

free(tok2); 


#ifdef  EnExFlag 

printf("Exit  the  Insert  parse_lhs  Function.W); 
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fflushfstdout); 

#cndif 

}  /* end  parse  Jhs  function  */ 


char  *create_INSERT(db_node,temp,list_ptr,  req_list_ptr) 

/*  This  function  generates  an  ABDL  "INSERT"  statement  from  the  tokens 
within  the  DAPLEX  LET  statement.  When  finished  insert  points  to: 
[INSERT(<TEMP,temp>,<attrib_name  1  ,attrib_value  1  >**  )J 

**the  attrib  name  and  value  are  found  in  the  list_ptr  linked  list, 
there  can  be  any  number  of  name  and  value  pairs. 

*/ 

dap_dbid_node*  db_node; 
char  *temp; 

linked_list_node  *list_ptr; 
struct  ab_req_info  *rcq_list_ptr, 

struct  ab_req_info  *new_node; 
struct  ab_req_info*  ab_req_info_alloc(); 
static  char  insert[MAX_LEN_ABDL]; 
char  filler[MaxPathLen]; 

#ifdef  EnExFlag 

printf("Into  the  Insert  from  Let  Function .\n"); 
fflush(stdout); 

#endif 

sprintf(insert,"[INSERT(<TEMP,  %s",get_addr(db_node,'E',temp)); 
while(list_ptr) 

{ 

if  (strlen(insert)  <  (MAX_LEN_ABDL  -  4)) 

{ 

strcat(insert,">,  <"); 

strcat(insert,get_addr(db_node,'A',temp,list_ptr->attrib_name)); 
strcat(inscrt,", "); 

strcpy(filler4ist_ptr->attrib_value); 
abdl_form(filler); 
strcat(insert^iller); 
list_ptr  *  list _ptr->next; 

} 
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else 

{ 

/•print  new  insen  line  */ 

create_INSERT(db_node,temp4ist_ptr,  req_list_ptr); 
break; 

) 

} 

strcat(insert,">)N)"); 
new_node  *  ab_req_info_alloc(); 

new_node->ari_req  *  (char  *)  malloc  (sizeof(char  )*(strien(insert)+ 1 )); 

new_node->ari_next_req  *  NULL; 

strcpy(new_node->ari_req,insert); 

new_node->ari_rel_op  =  ExeclnsReq; 

new_node->ari_next_req  =  req_list_ptr->ari_next_req; 

req_list_ptr->ari_next_req  =  new_node; 

#ifdef  EnExFlag 

printf("Exit  the  Insert  from  Let  Function  ,\n"); 
fflush(stdout); 

#endif 

return  insert; 

}  /*  end  createjnsen  */ 


char  •  create_RETRIEVE(db_node,temp,  retrieve_name,  listptr,  operation, 

entitytype) 

/•This  function  generates  an  ABDL  "RETRIEVE"  statement. 

*/ 

dap_dbid_node  *db_node; 
char  *temp; 

linked_list_node  •list_ptr; 
char*  retrieve_name; 
int  operation; 
int  entityjype; 

{ 

static  char  retrieve[MAX_LEN_AB  DL] ; 
char  addr_name[MAX_LEN]; 
char  filler[MAX_LENl; 
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l»kedJi*t_node  *remave_per, 
int  Compound__Retrieve; 

#ifdcf  EnExFlag 

printf(HInto  the  Create  retrieve  from  Function  .W); 
fflush(stdout); 

#endif 

if(list_ptr) 

{ 

Compound_Retrieve  *  TRUE; 

strcpyGotrieve,"  RETRIEVE((TEMP=");  /*compond  (i.e.  and’)  */ 

) 

else 

{ 

Compound_Retrievc  «  FALSE; 

sfircpy(retrieve,"  RETRIEVE(TEMP= ');  /*simple  stmt*/ 

1 

/*  if  entity_type  temp  already  is  correct  addr  */ 

if  (entity_type)  strcpy(addr_name,temp); 

else  strcpy(addr_name,get_addr(db_node,'E',temp)); 

if  (!strcmp(addr_name,NOT_FOUND)) 

{ 

ERROR(  "Unknown  entity",temp); 
rctumC "); 

1 

strcat(retrieve,addr_name); 

while(list_ptr) 

{ 

if(strlen(retrieve)>MAX_LEN_ABDL) 

{ 

printf(”RETRIEVE  Statement  excxeeds  maximum  length.  \n”); 
printf(  "Choose  Smaller  Entity  NamesNn "); 
printf("%s\n"jetrieve); 
retum(retrieve); 

} 

strcat(retrieve,")"); 

strcat(retrieve,”and("); 

strcpy(addr_name,get_addr(db_node,'A',temp,list_ptr->attrib_name)); 
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if  (!strcn^addr_name>’OTJROUND)) 

\ 

ERRORC'Unknown  element",temp); 
retumC "); 

} 

strcat(rctricvc,addr_namc); 


strcat(retrieve,"="); 

strcpy(fillcr,list_ptr->attrib_value); 

abdl_form(filler); 

strcat(rctricve,filler); 

list_ptr=list_ptr->next; 

}  f*  end  while  list_ptr  */ 

if(strlen(retrieve)>MAX_LEN_ABDL) 

{ 

printf('’RETRIEVE  Statement  exceeds  maximum  length.  \n"); 
printfC'Choose  Smaller  Entity  NamesNn"); 
printf("%s\n",retrieve); 
retum(rctrieve); 

J 

if(Compound_Retrieve) 
strcat(retrieve,"))  (");  /*  double  '))’  */ 
else 

strcat(retrieve,")  (");  /*  simple  only  1  ')’  */ 
strcat(retrieve/etrieve_name); 

strcat(retrieve,")"); 

if(operation==ExecRetReq)  /*add  the  BY  clause  for  Retrieve*/ 

{ 

strcat(retrieve,"BY "); 
if(strstr(rctrieve_name,",")) 

stmcat(retrieve4Ttrieve_name,strcspn(retrieve_name, 

else 

strcat(retrieve,retrieve_name); 

/*  put  in  beginning  and  ending '[  ]'  for  RETRIEVE  stmt  */ 

retrieve[0]  * 

strcat(retrieve, 

} 
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f*  free  up  the  list  nodes  */ 
while(list_ptr) 

( 

remove_ptr  *  list_ptr; 
list_ptr  =  list  ptr->next; 
free(remove_ptr->attrib_name); 
free(remove_ptr->attrib_value); 
firee(remove_ptr); 

1 

#ifdef  EnExFlag 

printf("Exit  the  Create  retrieve  from  Functionin'1); 
fflush(stdout); 

#endif 

return  retrieve; 

» 


char  attrib_type_search(tokl,  tok2,  firstentity) 

/*  This  routine  checks  to  see  if  the  attribute  is  in  the  schema.  If 
not  in  schema  an  error  message  is  output.  Also  checks  that  tokl 
(the  function)  is  an  attribute  of  tok2. 

*/ 

char  *tokl; 
char  *tok2; 

dap_db_entity_node  *first_cntity; 

{ 

dap_db_entity_node  *entity; 
dap_db_attrib_node  *attrib; 

#ifdef  EnExFlag 

printfC'Into  the  Attribute  Type  Functionin''); 
fflush(stdout); 

#endif 

entity  =  first_entity; 


while(entity) 

{ 


if(!strcmp(tok2,  cntity->dap_entity_name)) 

{ 

attrib  =  entity->first_attrib; 
while(attrib) 

{ 

if(!strcmp(tokl,  attrib-  xiap_attrib_name)) 

{ 

#ifdcf  EnExFlag 

printf("Exit  the  Attribute  Type  Functionin'1); 
fflush(stdout); 

#endif 

return  attrib->dap_attrib_type; 

} 

attrib  =  attrib- >next_attrib; 

}/*  end  while  attrib  not  null  */ 

/*  tok2  was  found  in  schema  but  it  didn't  have  a  tokl  attribute  */ 
ERROR("Following  attribute  not  found  in  schema",tokl); 
return  (0); 

}  /*  end  if  tok2=entity  name  */ 

entity  =  entity->next_entity; 

}  /*end  while  entity  not  null*/ 

/*  should  have  found  a  match  must  not  be  in  out  db  */ 
ERROR("Following  entity  not  found  in  schema  ",tok2); 
return  (0); 

}  /*  end  attrib_type_search  function  */ 


char  *  process_such(tokl,tok2,db_node,req_hd_ptr,dapJnfo_ptr) 

/*  function  to  process  DAPLEX  RETRIEVE  attribute(entity)  with  the 
SUCH  THAT  clause. 

*/ 

char  *tokl; 
char  *tok2; 

dap_dbid_node  *db_node; 
struct  ab_req_info  *req_hd_ptr; 
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struct  dap.info  *dap  info_ptr; 

{ 

struct  temp_str_info  *temp_str_info_alloc() ; 

struct  temp_str_info  *temp_dap_query; 

char  token[MAX_LEN]; 

char  token  1  [MAX_LEN] ; 

char  token2[MAX_LEN]; 

char  token3[MAX_LEN]; 

char  token4[MAX_LEN); 

char  temp[MAX_LEN]; 

char  comm_retr_stmt[M  AX_LEN  ] ; 

char  *retricvc_stmt; 

int  entity_type; 

linked_list_node  *retrieve_hd_ptr; 
struct  ab_req_info  *cnt_req_ptr, 

#ifdef  EnExFlag 

printf("Into  the  Process  Such  (RETRIEVE)  Function.Nn"); 
fflush(stdout); 

#endif 

dap_info_ptr->dap_operation  =  ExecRetCReq;  /*retrieve  common  to  be  made  */ 
strcpy(token,  get_token(NULL,ONE)); 
if(!  (strcmp(token ,  "TH  AT' ' ) )) 

{ 

strcpy(temp,get_token(NULL,REST)); 
parse_lhs(temp,  token  1 ,  token2); 

entity_type=parse_rhs(temp,  token  1  ,token2,token3,token4,db_node, 
req_hd_ptr,RETREEVE.dap_info_ptr); 

if(entity_type) 

< 

retrieve_hd_ptr  =  NULL; 

retrieve_stmt  =  create_RETRIEVE(db_node,token4,ID(tok2), 
retrieve_hd_ptr,ExecRetCReq,entity_type); 

/*  insert  the  retrieve  at  the  beginning  of  common  retrieve  stmt  */ 
strcpy(comm_retr_stmt,  retrieve_stmt); 
strcpy(temp,get_token(NULL,REST)); 
parse_lhs(temp,  token  1,  token2); 
strcpy(token4,  "'0"); 

parse_rhs(temp,  token  1  ,token2,token3,token4,db_node,req_hd_ptr, 
RETRIEVE,dap_info_ptr); 

sprintf(temp,"COMMON(%s,%s)%s\0",ID(token2),ID(token2),comm_retr_stmt); 
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strcpy(comm_retr_stmt,temp); 

retrieve_hd_ptr*NULL; 

retrieve  Jid4>tr=add_linked_list(  token  1  ,token3,retrieve_hd_ptr ); 
retrieve_stmt  *  create_RETRIEVE(db_node,token2,ID(token2), 
retrieve_hd_ptr.ExecRetCReq,FALSE); 

strcat(retrieve_stmt,comm _reti_stmt); 
strcpy(comm_retr_stmt,  rctrieve_stmt); 

/*  add  ”[  ]”  around  retrieve  common  stmt  */ 
comm_retr_stmtfO]  = 
strcat(comm_retr_stmt,"] "); 


/♦save  retrieve  items  til  after  exec  retrieve  comm*/ 
temp_dap_query  =  dap_info_ptr->dap_query; 
dap_info_ptr->dap_query  =  temp_str_info_alloc(); 
strcpy(dap_info_ptr->dap_query->tsi_str,lD(tok2)); 

/♦execute  retrieve  common*/ 

if(short  term_get(dap_info_ptr,  comm_retr_stmt)  ==  - 1 ) 

{ 

ERROR("No  data  matches  request "); 

return  NULL;  /*  ERROR  -  No  data  fm  short_term_get  */ 

) 

dap_info_ptr->dap_query  =  temp_dap_query;  /*reset  retrieve  items  */ 
/*  tokl  &2  where  assigned  values  in  main  */ 
create_RETRIEVE_with_OR(dap_info_ptr,tok2,ID(tok2),tok  1 ); 

}  /*end  if  entity_type  */ 

else  /*  only  a  single  retrieve  needs  to  be  made  */ 

1 

if(!strcmp(token2,tok2)) 

{ 

retrieve_hd_ptr=NULL; 

retrieve Jidjrtr*add_linked_list(token  1  ,token3tretrieve_hd_ptr); 
retrieve_stmt  *=  create_RETRIEVE(db_node,token2,tokl, 
retrieve_hd_ptr,ExecRetReq,entity_type); 
load  request  (dap_info_ptrjetrieve_stmt,  ExecRetReq); 

} 

}  /*endelse*/ 


146 


}  /*  end  if  "THAT"  */ 

else  /*  SUCH  without  THAT  */ 

{ 

ERRORCONLY  SUCH’  FOUND.  Need  SUCH  THAT", temp); 
dap_info_ptr->dap_operation  =  ExecNoReq; 
return  NULL; 

) 

#ifdef  EnExFlag 

printf("Exit  the  Process  Such  (RETRIEVE)  Function.Nri); 
fflush(stdout); 

#endif 

return  c  omm_retr_stmt; 

}  I*  End  process_such  function  */ 


struct  temp_strJnfo  *combine_lists(listl,list2) 

/*  procedure  to  combine  the  results  of  two  retrieve  common  stmts, 
i.e.  it  ANDS  the  retrieve  commons.  A  pointer  to  the  list  of  common 
results  is  returned. 

*/ 

struct  temp_str_info  *listl; 
struct  temp_str__info  *list2, 

{ 

struct  temp_str_info  *common_list,*last_entry,  *remove_node; 
#ifdef  EnExFlag 

printfC'Enter  the  Combine  Lists  Function.Nn"); 
fflush(stdout); 

#endif 

if(!list2) 

{ 

ERRORC'No  data  matches  request "); 
return  NULL; 

1 


common_list « temp_str_inf o_alloc ( ) ;  /*make  header  node  */ 
last_entry  =  commonjist; 
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while(listl) 

{ 

if(check  _list(list2, listl ->tsi_str))  /*  listl  element  in  list2?  */ 

{ 

/*  yes  in  both,  put  in  common  list  */ 
lasL.entry->tsi_next  =  listl; 
last_entry  *  listl; 
listl  «  listl ->tsi_next; 

} 

else 

{ 

/*  no,  remove  listl  node  */ 
remove_node  =  listl; 
listl  =  listl ->tsi_next; 
free(remove_node); 

} 

}  /*  end  while  listl  not  null  */ 

while(list2)  f*  free  list2  linked  list  */ 

{ 

remove_node  =  list2: 
list2  =  list2->tsi_next; 
firee(remove_node); 

}  /*  end  while  list2  not  null  */ 

t*  REMOVE  HEADER  NODE  *( 
remove_node  =  common_list; 
commonjist  =  common  _list->tsi_next; 
free(remove_node); 

#ifdef  EnExFlag 

printf("Exit  the  Combine  Lists  Function.Nn"); 
fflush(stdout); 

#endif 

return  common_list; 

}  l*  end  combine  list  function  */ 
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proccas_wkcrc<tok  1 ,  tok2,db_node,req_hd_ptr,  dapinfoptr) 

/*  function  to  process  DAPLEX  RETRIEVE  attribute(entity)  with  the 
WHERE  clause. 

*/ 

char  *tokl; 
char  *tok2; 

dap_dbid_node  *db_node; 
struct  ab_req_info  *req_hd_ptr; 
struct  dap.info  *dap_info_ptr, 
t 


static  char  temp[M  AX_LEN] ; 

char  rctr_vallMAXJLEN]; 

char  token[MAX_LEN]; 

char  token  1[M  AX  JLEN]; 

char  token2[MAX_LENJ; 

char  token3[MAX_LEN]; 

char  token4[MAX_LEN]; 

char  comm[MAX_LEN]; 

char  retr_comm_stmt[  M  AX_LEN  ] ; 

char  *retrieve_stmt,  *function_retr, 

int  entity_type; 

int  first_rctrieve_common  *  TRUE; 
struct  temp_str_info  *common_list; 
linked_list_node  *rctrieve_hd_ptr.  *remove_ptr; 


#ifdef  EnExFlag 

printf("Into  the  Process  Where  (RETRIEVE)  Function.W); 
fflush(stdout); 

#endif 

strcpy(token,get_token(NULL,ONE)); 

if(strcmp(token,"BEGIN")) 

{ 

ERRORfWHERE  must  be  followed  by  a  BEGIN  -  END  BLOCK  ".token); 
dap_info_ptr->dap_operation  =  ExecNoReq; 
return  NULL; 

1 

/*  process  attribute_name(entity_name)  =  entity_name  stmt  */ 

strcpy(temp,get_token(NULL,REST)); 

retrieve_hd_ptr  =  NULL; 
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parse _lhs(temp,  token  1  ,token2); 

entity_type*parse_rhs(temp,  token  1  ,token2,token3,token4,db_node, 
req_hd_ptr,RETRIEVE,dap_info_ptr); 
if(!entity_type) 

{ 

ERRORO'rhs  must  *  entity  name  for  stmt  immediately  after  BEGIN  ".temp); 
dap_info_ptr->dap_operation  =  ExecNoReq; 
return  NULL; 

} 

/*function_retr  contains  retrieve  statement  and  COMMON  clause  for 
retrieve  common  to  be  created*/ 
function_retr  *  create_RETRIEVE(db_node,token4,ID(tok2), 
retrieve_hd_ptr,ExecRetCReq,entity_type); 

/♦assign  the  part  of  the  retrieve  common  that  won't  change  to  comm*/ 
sprintf(comm,"COMMON(%s,%s)%sW,ID(token3),ID(token3),function_retr): 
/*  prime  dap_info  with  variable  name  to  be  retrieved  fm  short_term  get*/ 
dap_info_ptr->dap_query  « temp_str_info_alloc(); 
strcpy(dap_jnfoj5tr->dap_query->tsi_str,ID(tok2)); 
strcpy(temp,get_token(NULL,REST));  /*get  1st  stmt  after  'BEGIN*  */ 

while(strcmp(temp,  "END ")) 

{ 

if(strpbrk(temp,"$@")) 

I 

ERRORC'END  -  Not  Found  for  WHERE  statement"."  "); 
return  (0); 

1 

parse_lhs(temp,token  1  ,token2); 

entity_type=parse_rhs(tf  mp,  token  1  ,token2,token3,token4,db_node, 
rcq_hd_ptr,RETRIEVE,dap_info_ptr); 
retrieve_hd_ptr  =  NULL; 

retrieve_hd_ptr=add_linked_list(token  1  ,token3,retrieve_hd_ptr); 

retrieve_stmt  =  create_RETRIEVE(db_node,token2,ID(token2),retrieve_hd_ptr 
.ExecRetCReq, entity  _typc); 

sprintf(retr_comm_stmt, " [% s  %sK>"/etrieve_stmt.comm); 

/♦execute  retrieve  common*/ 

if(short_term_get(dap_info_ptr,  retr_comm_stmt)  —  -1) 

{ 

ERROR("No  data  matches  request "); 

return  NULL;  /*  ERROR  --  No  data  fm  short_term_get  */ 
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) 


if(first_retrieve_common) 

{ 

/*  first  time  thru  no  lists  to  combine  */ 
first_retrieve_common  *  FALSE; 
commonjist  =  dap_inf o_ptr-  >dpi_kc  _data; 

} 

else 

( 

commonjist  *  combine Jists(common  list,  dap_info_ptr->dpi_kc_data); 

) 

strcpy(temp,getjoken(NULL,REST)); 

}  /*  end  while  temp  o  "END"  */ 


/*  tokl  &2  where  assigned  values  in  main  */ 
create_RETRIEVE_with_OR(dap  Jnfo_ptr,tok2,ID(tok2),tok  1 ); 
sprintf(dapJnfo_ptr->dap_query->tsi_str,"%s(%s)N0",tokl,tok2jretr_comm_stmt); 


#ifdef  EnExFlag 

printf("Exit  the  Process  Where  (RETRIEVE)  Function.Nn"); 
fflush(stdout); 

#endif 

}  f*  End  process_where  function  */ 


int  process_LET_stmt(str,  tokl,  tok2,  tok3,  tok4,  entitytokl,  db  node,  req_hd_ptr, 

calledby,  dapinfo_ptr) 

I*  This  function  processes  The  LET  statements  found  in  a  BEGIN  and  END  block 
found  after  a  FOR  statement  Information  is  parsed  so  that  an  ABDL  INSERT 
statement  can  generated  later  in  the  program.  There  are  two  forms  of  LET 
L  LET  entity_NAME  =  literal 

II.  LET  entity _namej  *  entity_name_2  SUCH  THAT  entity_name  =  literal 
The  first  form  generates  a  single  ABDL  INSERT  statement.  THe  second 
must  retreieve  the  element  number  of  entity wname_2  (i.e.  an  ABDL  RETRIEVE 
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stmt  is  generated  and  executed)  and  create  an  Additional  ABDL  INSERT 
from  information  after  the  SUCH  THAT  clause  (i.e.  2  INSERTS  created). 

*/ 

char*  str; 

char  *tokl; 

char  *tok2; 

char  *tok3; 

char  *tok4; 

char  *entity_tokl; 

dap_dbid_node  *db_node; 

struct  abjreqjnfo  *req_hd_ptr; 

int  called_by; 

struct  dap_info  *dap_info _ptr; 

[ 

char  string[MAXJLEN]; 
char  substring[MAXJLEN]; 
int  i; 

#ifdef  EnExFlag 

printf("Into  the  Process  Let  Function.Xn"); 
fflush(stdout); 

#endif 

strcpy(string,str); 
parse_lhs(str,tok  1  ,tok2); 

if(entity  tokl[0]!*ND’)  /*  not  NULL  if  FOR  NEW  stmt  */ 

I 

if  (strcmp(tok2,entity_tok  1 )) 

( 

ERROR(”#3  Illegal  Definition  format.  Improper  Left  Hand  side\n",string); 
dap_info_ptr->dap_operation  *  ExecNoReq; 
return  (0); 

} 

) 

/*  SUCH_THAT  (1)  is  returned  if  type  was  ’E’  else  LET(O)  returned  */ 
called_by=  parse_rhs(string,  tokl,  tok2,  tok3,  tok4,  db_node,  req_hd_ptr, 
called_by.dap_info_ptr); 


#ifdef  EnExFlag 

printfO'Exit  the  Process  Let  Function.Vi  "); 
fflush(stdout); 

#endif 
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return  cmlled_by; 

}  /*end  process_LET_stmt*/ 

parse_rh$(string,  tokl,tok2,  tok3,  tok4,  dbnode,  req_hd_ptr,ealled  Jby, 

dap_info_ptr) 

/*  function  processes  the  right  hand  side  (rhs)  of  a  statement  that  has 
an in  it. 

*/ 

char  *string; 
char  *tokl; 
char  *tok2; 
char  *tok3; 
char  *tok4; 

dap_dbid_node  *db_node; 
struct  ab_req_info  *req_hd_ptr; 
int  called_by; 

struct  dap_info  *dap_info_ptr; 

{ 

/*tok  21  -24  used  to  create  additional  INSERT  stmt  if  SUCH  THAT  clause 
in  LET  stmt 

*/ 

char  att_type; 

char  *retrieve_stmt; 

char  tok2 1  [MAX_LEN]; 

char  tok22[M  AX_LEN] : 

char  tok23[MAX_LEN]; 

char  tok24[MAX_LEN]; 

char  substring[MAX_LEN]; 

char  elem2[MAX_LEN]; 

char  elem3[MAX_LEN]; 

char  tok22_entity_id[MAX_LEN]; 

char  tok2_entityJd[MAX_LEN]; 

char  tok3_entity_id[MAX_LEN] ; 

char  tokenfMAXJLEN]; 

char  SUCH_THAT_string[MAX_LEN]; 

int  t_size; 

linked Jist_node  *insext_head_ptr, 
linked_list_node  *retrieve_hd_ptr; 

#ifdef  EnExFlag 
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printf("lnto  the  process  rhs  Function.W); 
fflush(stdout); 

#endif 

strtok(string,"»");  /*  clear  string  out  to  '='  */ 
strcpy(substring,strtok(NULL,  "="));  /*get  rest  of  line  */ 
att_type  *  attrib_type_search(tokl,tok2,db_node->first_entity); 
switch(att_type) 

{ 

case  ‘S’: 

/*for(;substring{0]!=""&&substring[0}!=\0‘;substring++)  ;*/ 

strtok(substring,'V"); 

if  (substring) 

{ 

strcpy(tok3,smok(NULL,‘ V ")); 

} 

else 

{ 

ERROR("#4  Illegal  Definition  format.  Improper  Left  Hand  side", 
string); 

dap_info_ptr->dap_operation  =  ExecNoReq; 
return  (0); 

} 

break; 

case  T: 

if(substring) 

{ 

strcpy(tok3,strtok(substring," ")); 
if  (!(is_integer(tok3))) 

{ 

ERROR("#5  Illegal  Definition  format.  Improper  Left  Hand  side", 
string); 

dap_info_ptr->d  ap_oper  ati  o  n  =  ExecNoReq; 
return  (0); 

) 

} 

else 

{ 

ERRORC’Incomplete  definition  of  Let  Stmt\n",string); 
dap_info_ptr->dap_operation  *  ExecNoReq; 
return  (0); 

} 
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break; 


case  'F: 

if(substring) 

{ 

strcpy(tok3,strtok(substring,'‘ ")); 
if  (!(is_real(tok3)» 

{ 

ERR0R("#6  Illegal  Definition  format.  Improper  Left  Hand  side", 
string); 

dap_info_ptr->dap_operation  *  ExecNoReq; 
return  (0); 

} 

} 

else 

{ 

ERRORC'Incomplete  definition  of  Let  Stmt.Nn", string); 
dap_info_ptr->dap_operation  =  ExecNoReq; 
return  (0); 

) 

break; 
case  'C: 

/*for(;substring[OJ!=V&&substring(0]f=NC)';substring++)  ;*/ 

strtok(substring,"'"); 

if  (substring) 

strcpy(tok3,strtok(NULL,'"")); 

} 

else 

I 

ERROR("#7  Illegal  Definition  format.  Improper  Left  Hand  side”, 
string); 

dapjnfo _ptr->dap_operation  =  ExecNoReq; 
return  (0); 

) 

break; 


case  ’E’: 
case  'A': 

switch(called_by) 

I 
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case  SUCH_THAT: 

/♦ERROR:  Entity  ('E')  type  after  =  in  a  Such  That  stmt*/ 
ERRORC’SUCH  THAT  clause:  token  right  of  '='  can’t  be  an  entity  ”, 
string); 

dap_info_ptr->dap_operation  =  ExecNoReq; 

return  (0); 

break; 

case  LET: 

gct_ptr_entity_addr(db_node,substring,tok  1  ,tok2,tok3,tok4); 

/*tok4  will  be  the  new  name  of  the  pointer  entity  */ 

/*  Next  part  of  LET  Stmt  must  be  SUCH  THAT  else  error  */ 
strcpy(token,get_token(NULL.ONE)): 
if  (strcmp(token,"SUCH")) 

{ 

ERRORO’fllegal  query  format.  ", string); 
return  (0); 

} 

strcpy(token,get_token(NULL,ONE)); 
if  (strcmp(token,"THAT")) 

( 

ERROR("Illegal  query  format.  ”,string); 
return  (0); 

} 

strcpy(SUCH_THAT_string,get_token(Nl  L.REST)); 
process  JJ5T_stmt(SUCH_THAT_string,tok2 1  ,tok22,tok23,tok24, 
tok3,db_nodej-eq_hd_ptr.SUCH_THAT,dap_info_ptr); 


retrievc_hdjptr  *  NULL; 

retrieve_hd_ptr*add_linked_list(tok2 1  ,tok23,retrieve_hd_ptr); 
/*  get  tok22  object  number  from  database  */ 
retrieve_stmt  *  create_RETRlEVE(db_node,tok22,ID(tok22), 
retrieve_hd_ptr,ExecRetReq,  FALSE); 

/*  put  retrieve  name  into  dap  info  for  short  get  */ 
dap_info_ptr->dap_query  =  temp_str_info_alloc(); 
strcpy(dap_info_ptr->dap_query->tsi_str,ID(tok22)); 
dap_info_ptr->dap_query->tsi_next  *  NULL; 
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if  (get_object_no(dap_info_ptr,  retrieve_stmt)  ==  -1) 
return  (0);  /*  ERROR  return  empty  string  */ 

strcpy(elem3,dap_info_ptr->dpLkc_data->tsi_str); 
sprintf(elem2,  "%-d",  db_node->object_counter); 
insert_head_ptr  =  NULL; 

in  sert_head_ptr=add_linked_li  st(ED  ( tok2 ) ,  elem2,insert_head_ptr); 
insert_head_ptr=add_linked_list(ID(tok3),  elem3,insert_head_ptr); 
sprintf(elem2,  "%-d",  db_node->object_counter); 
insert_head_ptr=add_linked_list(ID(tok4),  elem2,  insert_head_ptr); 
/*  Create  and  Print  the  additional  ABDL  "INSERT"  stmt  generatede 
by  the  SUCH  THAT  clause.  */ 
create_INSERT(db_node,tok4,  insert _head_ptr,req_hd_ptr); 
break; 

case  RETRIEVE; 

get_ptr_entity_addr(db_node,substring,tok  1  ,tok2,tok3,tok4); 

/*tok4  is  addr  of  the  ptr_entity*/ 
break; 

}  /*  End  called_by  switch  */ 
break;  /*for  case  'E'  */ 

default: 

ERRORC Attribute  is  unrecognizable",string); 
return  (0); 

}  /*End  of  switch*/ 

#ifdef  EnExFlag 

printf("Exit  the  process  rhs  Function  An"): 
fflush(stdout); 

#endif 


if(att_type='E,llatt_type=='A') 

{ 

return  (SUCHTHAT);  /*  types  ’E'or  ’A'  return  SUCH_THAT(1)*/ 

) 

else 

{ 

return  (LET);  /*all  types  except  'E'  return  LET(O)  */ 

} 
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}  /*  End  process_rhs  function  */ 


get_object_no(dap_info_ptr,  retrieve_stmt ) 

/*  This  function  returns  the  entity  object  number  assigned  to  the 
attribute.  It  generates  an  ABDL  stmt  (via  create.retrieve)  and 
executes  the  retrieve  statement  (via  short_term_get)  to  get  the 
desired  number 
*/ 

struct  dap_info  *dap  _info_ptr, 
char  *retrieve_stmt; 

{ 

char  *x; 

#ifdef  EnExFlag 

printf("Into  the  get_entity_object_no  Function  An"); 
fflush(stdout); 

#endif 

/♦execute  retrieve*/ 

if(short_term_get(dap_info_ptr,  retrieve_stmt)  ==  -1) 

{ 

ERRORfNo  data  to  Retrieve"," "); 

return  -I;  /*  ERROR  --  No  data  fm  short_term_get  */ 

I 

if(dapJnfo_ptr->dpiJkc_data) 

{ 

if(is_integer(dap_info_ptr->dpi_kc_data*>tsi_str)) 

{ 

if(dap_info_ptr->dpLkc_data->tsi_next) 

{ 

ERRORC'Corrupt  Database!  More  than  one  entity  id  #  for  ", 

retrieve_stmt); 

dap_info_ptr->dap_operation  =  ExecNoReq; 
return  (0); 

} 

} 

else 

( 

ERRORO’Database  Corrupted  Non-Numeric  data  in  entity  id  #  for  ", 

retrieve_stmt); 
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dap_info_ptr->dap_operation  =  ExecNoReq; 
return  (0); 

) 

} 

else 

{ 

ERROR("Database  Corrupted  No  entity  id  #  found  for  ",retrieve_stmt); 
dap_info_ptr->dap_operation  *  ExecNoReq; 
return  (0); 

I 

/*  We  have  a  valid  entity  object  number  */ 

#ifdef  EnExFlag 

printf("Exit  get_entity_object_no  Function.Nn"); 
fflush(stdout); 

#endif 


}  /*  End  get_entity_object_NO  */ 


create_RETRIEVE_with_OR(dap_info_ptr,  template,  conditionaljtem, 

retrieve_item) 

/*  This  function  generates  an  ABDL  RETRIEVE  with  1  or  more  OR  cluases.*/ 

struct  dap_info  *dap_info_ptr; 
char  *template; 
char  *conditional_item; 
char  *retrieve_item; 

< 

struct  temp_str_info  *kc_data; 

struct  ab_req_info  *req_node; 

char  temp_clause[MAX_LEN]; 

char  retrieve_or_stmt[MAX_LEN_ABDL]; 

struct  dap_db_id_node  *db_node; 

#ifdef  EnExFlag 

printf("Into  the  create_RETRIEVE_with_OR  Function.Nn"); 
fflush(stdout); 

#endif 

db_node  =  dap_info_ptr->dpi_curr_db.cdi_db.dn_dap; 
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if(!dap_info_ptr->dpi_kc_data)  /*no  data*/ 

I 

ERROR("DAPLEX  query  unable  to  find  requested  data"," ") 
dap_inf o_ptr-  >dap_operati  on  =  ExecNoReq; 
return  (0); 

} 

strcpy(retrieve_or_stmt,"[RETRIEVE"); 

strcpy(temp_clause,"((TEMP=''); 

strcat(temp_clause,get_addr(db_node,'E', template)); 

strcat(temp_clause,")and("); 

strcat(temp_clause,conditional_item); 

strcat(temp_clause,"="); 

kc_data  =  dap_info_ptr->dpi  _kc_data: 

/*  make  an  OR  clause  for  each  element  in  kc_data  linked  list*/ 
while(kc_data) 

I 

strcat(retrieve_or_stmt,temp_clause ) ; 
strcat(retrieve_or_stmt,kc_data->tsi_str); 
strcat(retrieve_or_stmt,"))or"); 
kc_data  =  kc_data->tsi_next; 

} 

f*  removes  the  last  OR  */ 

retrieve_or_stmt[strlen(retrieve_or_stmt)  -2]  =  >0'; 
strcat(retrieve_or_stmt, "(' "); 
strcat(retrieve_or_stmt,retrieve_item); 
strcat(retrieve_or_stmt,")  BY  "); 
strcat(retrieve_or_stmuretrieveJtem); 
strcat(retrieve_or_stmt,"]"); 

load_rcquest  (dap_info_ptr,retrieve_or_stmt,  ExecRetReq); 
#ifdef  EnExFlag 

printf("Exit  the  create_RETRIEVE_with_OR  Function. Vi"); 
fflush(stdout); 

#endif 


}  /*  end  Create_RETRIEVE_With_OR  */ 
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¥ 

int  kwd_reqiicst  (dap_bifo_ptr  request,  ExecReqType) 

/*  This  functions  loades  the  created  ABDL  sutement(s)  into  the  dapjnfo 
data  structure,  (i.e.  last  step  before  execution)  */ 
struct  dapjnfo  *dap  Jnfo_ptr; 
struct  ab_reqJnfo  “Tequest; 
int  ExecReqType; 

{ 

struct  ab_reqJnfo  *req_node; 

#ifdef  EnExFlag 

printfC’Enter  the  load.iequest  Funcdon.Vn"); 
fflush(stdout); 

#endif 

/*  load  a  request  node  with  RETRIEVE  */ 
req_node  =  ab_req_info_aUoc(); 

req_node->ari_req  =  (char  *)  malloc  (sizeof(char)*strlen(request)+l); 

/*  req_node->ari_nextjreq  =  NULL;  */ 
strcpy(req_node->ari_req,request); 
req_node->ari_rel_op  -  ExecReqType; 

dapJnfo_ptr->dap_opcration  =  ExecReqType. 
dap  Jnfo_ptr->dpi_abdl_tran.ti_first_req.ri_ab_req  =  req_node; 
dapJnfo_ptr->dpi_abdl_tran.ti_curr_req.ri_ab_req  =  req_node; 
dap Jnfo_ptr->dpi_abdLtran.ti_no_req  =  1 ; 


#ifdef  EnExFlag 

printf("Exit  the  load_request  Function.Nn"); 
fflush(stdout); 

#endif 

}  I*  end  load_request  */ 


int  dap  to  abdl  (dapinfo_ptr,query_ptr) 

/*  This  program  is  the  main  driver  program  which  then  calls  various  other  procedures 
within  query.c*/ 

struct  dapjnfo  *dapJnfo_ptr; 
struct  temp_strJnfo  *query_ptr; 
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{ 


int  entity_type; 
int  (.size,  i; 
int  New_Entity; 

char  token[M  AX_LEN] ; 
char  entity_tokenl[MAX_LEN]; 
char  token  1  [MAX_LEN]; 
char  token2[MAX_LEN]; 
char  token3[MAXJLEN]; 
char  token4[M  AX_LEN] ; 
char  token5[MAX_LEN]; 
char  temp[MAX_LEN]; 
char  entity Jd[MAX_LEN); 
char  LET_string(MAX_LEN]; 
char  FOR_no_NEW[MAX  _LEN]; 
char  combo_token[MAX_LEN]; 
char  *rctricvc_stmt; 

struct  temp_str_info*  temp_strJnfo_alloc(); 

linked Jist_node  *insert_head_ptr,  *retrieve_hd_ptr; 

struct  ab_rcq_info  *rcq_hd_ptr,*cnt_rcq_ptr,  *req_node; 

struct  temp_str_info  *last_dap_query; 

dap_dbid_node  *db_node; 

char  *t; 

int  furst_time; 

#ifdef  EnExFlag 

printf("lnto  the  dap_to_abdl  Functionin''); 
fflush(stdout); 

#endif 

db_node  *  dap_info_ptr->dpi_cuiT_db.cdi_db.dn_dap; 
req_hd_ptr  =  ab_req_info_alloc(); 
re<i_hd_j)tr->ari_req  =  (char  *)  malloc  (sizeof(char)*21); 
strcpy(req_hd_ptr->ari_req,  ”Headcr  RecordVO '); 
req_hd_ptr->ari_next_req  =  NULL; 

New_Entity  *  FALSE; 
if(!query_ptr) 

{ 

ERRORC'No  DAPLEX  query  found","  "); 
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d%p_info_ptr->dap_operation  *  ExccNoRcq; 
return  (0); 

) 


strcpy(token,  get_token(query_ptr,ONE)); 
if  (!strcmp(token,"FOR,,)) 

I 

/*  the  FOR  statement  can  be  of  two  forms: 

I.  FOR  NEW  entity-name 
0.  FOR  entity-name 

the  first  form  is  for  an  entity  that  has  not  been 
created  yet  where  the  second  has  been  created  but  we 
are  modifying  the  entries. 

*/ 

strcpy(token,get_token(NULL,ONE)); 
if  (!strcmp(token,"NEW")) 

( 

strcpy(entity_tokenl,get_token(NULL,ONE)); 

insert_head_ptr  =  NULL; 

db_node->object_counter-M-; 

sprintf(temp,”%-d".dh_node->object_counter); 

insert_head_ptr=add  _linked_list(ID(entity_token  1  ),temp,insert_head_ptr); 

New  Entity  =  TRUE; 

I 

else  /*FOR  without  NEW*/ 

{ 

entity_tokenl[0]  =  >0';  /*set  it  to  NULL  */ 
strcpy(FOR__no_NEW,token); 
strcat(FOR_no_NE  W,gct_token  (NULL, REST)); 

process_LET_stmt(FOR_no_NEW, token  1  ,token2,token3,token4,entity_token  1 , 
db_node,req_hd_ptr,SUCH_THAT,dap_info_ptr); 
strcpy(entity_tokenl,  token2); 
rctrievc_hd_ptr  =  NUI  \  ■: 

retrieve_hd_ptr=adc  ,m.r:d_list(token  1  ,token3,retrieve_hd_ptr); 
retrieve_stmt  =  creat<  R  '  TRIEVE(db_node,token2,ID(token2), 
retrieve_hd_ptr,ExecRetReq,entity_type); 

/*  put  retrieve  name  into  dap  info  for  short  get  */ 
dap_info_ptr->dap_query  *  temp_str_info_alloc(); 
strcpy(dap_info_ptr->dap_<!uery->tsi_str,ID(token2)); 
dap_info_ptr->dap_query->tsi_next  =  NULL; 
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get_object_no(dap_info_ptr,  retrieve_stmt); 

New_Entity  *  FALSE; 

I 

/*  The  FOR  stmt  is  always  followed  by  a  BEGIN  and  END  block.  */ 
strcpy(token,get_token(NULL,ONE)); 
if  (strcmp(token,"BEGIN")) 

( 

ERRORC'Invalid  query  header”,  query_ptr); 
return  (0); 

) 

strcpy(token,get_token(NULL,ONE»; 
while  (!strcmp(token,"LET")) 

< 

strcpy(LET_string,get_token(NULL,REST)): 
entity_type=process_LET_stmt(LET_string, token  1 ,  token2,  tokcn3, 
token4,entity_token  1 ,  db_node  jeq_hd_ptr,LET,dap_info_ptr); 

if(!entity_type)  /*attribute  is  not  entity  (‘E’)  type?*/ 

{ 

/*  Not  E  so  add  new  attribute  and  its  value  to  insen  list  */ 
inscn_head_ptr=add_linked_list(token  1  ,token3,insen_head_ptr ); 

I 

strcpy(token,get_token(NULL,ONE));  /* get  next  token*/ 

}/*End  whUe  Token  =  "LET"*/ 

if  (strcmp(token,"END"))  /*next  stmt  after  LET  s  better  be  END*/ 

{ 

ERROR("Expecting  END  statement  but  following  stmt  found:\n",token); 
dap_info_ptr->dap_operation  =  ExecNoReq; 
return  (0); 

} 

if  (New_Entity) 

create_INSERT(db_node,entity_token  1  ,insen_head_ptr  jeq_hd_ptr); 
dap_info_ptr->dap_operation  =  ExeclnsReq; 

dap_info_ptr->dpi_abdl_tran.ti_fost_req.ri_ab_req  =  req_hd_ptr->ari_next_r 
dap_info_ptr->dpi_ab(1!_tran.ti_curr_req.ri_ab_req  =  req_hd_ptr->ari_next_r 
/♦count  #  of  requests  */ 
dap_info  j>tr->dpi_abdl_tran .  ti_no_req  =  0; 
for(cnt_req_ptr=req_hd_ptr->ari_next_req;cnt_req_ptr;cnt_req_ptr= 
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cntjreq_j>tr->ari_next_ieq)dap_info_ptr->dpi_abdl_tran.ti_no_req++; 

/*copyjrequests_to_dap_info{dap_mfo_ptr,req_hd_ptr);*/ 
req_hd_ptr->ari_next_req  =  NULL;  /*  reset  the  ptr  */ 
return  1; 

}  /*  end  if  FOR  */ 
else 
{ 

if (!strcmp(  token,' "RETRIEVE")) 

( 

first_time  *  TRUE; 
combo_token[0]  =  >0‘; 
do 

I 

strcpy(token,get_token(NULL,ONE)); 

/♦keep  concatenating  tokens  until ')'  found*/ 

whilc( ! strstr( token, " )")&&! (token ) )  strcat(token,get_token(NULL,ONE)); 


if  (first_time) 

{ 

first_time  =  FALSE; 

dap_info_ptr->dap_query  *  temp_str_info_alloc(); 
strcpy(dap_info_ptr-x!ap_query->tsi_str,token); 
last_dap_query  =  dap_info_ptr->dap_query; 

) 

else 

{ 

strcat(combo_token,","); 

last_dap_query->tsi_next  =  temp_str  _info_alloc(); 
strcpy(last_dap_query->tsi_next->tsi_str,tokcn); 
last_dap_query  =  last_dap_query->tsi_next; 

} 

strcat(token,  "="); 
parse_lhs(token,token  1  ,token2); 
strcat(combo_token,token  1 ); 
strcpy(token,get_token(NULL,ONE)); 

}  while  ((!strcmp{ token, "AND"))  &&  (temp)); 

strcpy(tokenl,combo_token); 

f*  Null  string,  ’SUCH  THAT  or  "WHERE"  clause  must  be  next  */ 
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if(tokcn[0]»j=V)')  /*simple  retrieve  with  no  qualifiers*/ 

1 

retrieve_stmt  *  create_RETRIEVE(db_node,token2,tokenl,NULL, 

ExecRetReq,  FALSE); 

load_request  (dap_info_ptrjretrieve  stmt,  ExecRetReq); 

} 

else 

i 

if(!(strcmp(token,"SUCH"))) 

{ 

rctrieve_stmt «  process_such(token  1  ,token2,db_node  jeq_hd_ptr, 
dap_info_ptr); 

} 

else 

if(!(strcmp(token,"WHERE”))) 

{ 

process_whcrc(token  1  ,token2,db_node,req  hd_ptr,dap_info_ptr); 

I 

else 

I 

ERROR("RETRIEVE  must  contain  a  'SUCH  THAT  or  'WHERE'  clause ’.temp); 
dap_info_ptr->dap_operation  =  ExecNoReq; 
return  (0); 

}  /*  end  if  WHERE  */ 

}/*  end  if  SUCH*/ 

}/*  end  if  NULL  */ 

}/*  End  if  "RETRIEVE"  */ 
else 

I 

ERROR("Not  a  valid  DAPLEX  statement  -  Unknown  first  token", temp); 
dap_info_ptr->dap_operation  =  ExecNoReq; 
return  (0); 

} 

}  /*end  else  */ 

#ifdef  EnExFlag 

printf("Exit  the  dap_to_abdl  Function.Nn"); 
fflush(stdout); 

#endif 
return  1; 

)  I*  end  _abdl  routine  */ 
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/* 

*  File  Name:  readcatc 

*  Source:  /u/nxlbs/greg/CbnTliyn/LangIF/src/Dap/Kms/read_cat.c 

*  This  file  contains  procedures  for  future  growth  allowing  the  user  to 
create  a  functional  model  based  on  best  guess  info  from  the  template 
and  descriptor  files. 

* 

*/ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <licommdau.h> 

#include  <dap_info.h> 

f_load_catalog(dap_info_ptr) 
struct  dap_info  *dap_info_ptr; 

{ 

dap_dbid_node  *db_ptr; 
int  count  l,count2; 

char  stringfMaxPathLen] ,  temp[MaxPathLen]; 

FILE  *file_ptr; 

dap_db_entity_node  *entity,  *curr_ent; 
dap_db_attrib_node  *attrib,  *cun_att; 

/♦assign  pointers  and  open  the  file*/ 

file_ptr  =  fopen(dap_info_ptr->dpi_ddl_files->ddli_temp.fi_fname,’,r  ”); 
db_ptr  =  dap_info_ptr->dpi_curr_db.cdi_db.dn_dap; 
printf("Enter  the  read  programNn"); 

/♦Clear  out  the  name  at  the  top  of  the  file*/ 
strcpy(string,  fgets(temp,  MaxPathLen,  file_ptr)); 

/♦Get  the  necessary  data,  number  of  entities*/ 
strcpy(string,  fgets(temp,  MaxPathLen,  file_ptr)); 
countl  =  atoi(string); 
db_ptr->number_of_entitys  =  countl ; 

/*  Ensure  that  we  aren't  pointing  at  garbage*/ 
db_ptr->first_entity  *  NULL; 

/♦Loop  once  for  each  entity*/ 


167 


for  (;countl;countl--) 

( 

entity  =  (dap_db_entity_node*)  malloc(sizeof(dap_db_entity_node)); 
entity->dap_entity_name  *  (char*)  malloc  (sizeof(char)*MaxPathLen); 
strcpy(string,  fgets(temp,  MaxPathLen,  file_ptr)); 

/*  Ensure  that  we  aren’t  pointing  at  garbage*/ 
entity->first_attrib  =  NULL; 

count2  =  atoi(string); 
entity->number_of_attribs=  count2; 

strcpy(entity->dap_entity_name,  fgets(temp,  MaxPathLen,  file_ptr)): 

/♦Loop  once  for  each  attribute  in  each  entity*/ 
for  (;count2;count2-) 

I 

atrrib  =  (dap_db_attrib_node*)  malloc(sizeof(dap_db_attrib_nodc)); 
attrib->dap_attrib_name  =  (char*)  malloc  (sizeof(char)*MaxPathLen); 

strcpy(string,  fgets(temp,  MaxPathLen,  file_ptr)); 
strcpy(attrib->dap_attrib_name,stnok(string," ")); 
strcpy(tcmp,strtok(NULL," ")); 
attrib->dap_attrib_type  =  temp[0); 

/♦get  ready  for  next  attribute*/ 
attrib->next_attrib=entity->fu-st_attrib; 
entity->first_attrib=attrib; 

) 

/♦get  ready  for  next  entity*/ 
entity->next_entity  =  db_ptr->first_entity: 
db_ptr->first_entity  =  entity; 


) 

} 


/* 

*  File  Name:  read  file.c 

*  Source:  /u/mdbs/greg/CNTRUTl/LangIF/src/Dap/Lil/read_file.c 

*  This  file  contains  procedures  for  actually  reading  the  schema/defintion  data 

* 

*/ 

♦include  <stdio.h> 

♦include  <strings.h> 

♦include  <stdlib.h> 

♦include  <dap  _info.h> 

♦include  <licommdata.h> 


int  read_a_file(dapjnfo_ptr) 
struct  dap  Jnfo  *dap_info_ptr. 


{ 

char  *input,  *tmp,  *result; 
inti,  MAXLEN  =  80; 

imp  =  (char*)  malloc  (sizeof(char)*(MAXLEN+l )); 
input  =  (char*)  malloc  (sizeof(char)*(MAXLEN+l )); 

/*  *dap_info_ptr.dpi_file->fi_fid  will  point  to  the  file  or  stdin  */ 
while((resuit==fgets(tmp,MAXLEN,dap_info_ptr->dpi_file.fi_fid ) ) ! = N  U  LL) 
{ 

strcpy(input,tmp); 
input[strlen(tmp)- 1  ]=N0'; 
for  (i=0;i<MAXLEN;i++) 

{ 

input[i]=toupper(input[i]); 

) 

/*  It  had  better  at  least  begin  with  a  D  */ 

if  (strchr(input,,D')) 
ddl_parse(input,dap_info_ptr); 

} 

/*  creates  the  .d  and  .t  files  */ 
if  (dap_info_ptr->dap_error  !=  ErrCreateDB) 
CTeate_t_file(dap_info_ptr->dpi_curr  db.cdi  db.dn  dap); 

1 


it>y 


/* 

*  File  Name:  readrtne&c 

*  Source:  /u/n^bVgreg/CNTTUwTI/LanglF/src/Dap/LiVreadrtnes.c  $ 

*  This  file  contains  procedures  to  ensure  a  file  exists,  open  it  and 
provide  a  pointer  to  it  for  future  operations. 

*/ 

#include  <stdio.h> 

#include  <ctype.h> 

#include  <strings.h> 
tinclude  <licommdata.h> 

#include  <dap_info.h> 

#include  "flags.def ' 

f_read_transaction_file(dap_infoptr) 

struct  dap_info  *dap_info_ptr;/*  Use  the  same  old  one*/ 

< 

int  open_flag;  /*  boolean  flag  */ 
int  i;  /*  counter  */ 

char  file  ame[FNLength  +  1]; 
char  fillcr[MaxPathLen+FNLength+ 1  ] ; 

/*  This  routine  opens  a  create/query  file  and  reads  the  */ 

/*  creates/queries  into  the  request  list.  */ 

#ifdef  EnExFlag 

printf  ("Enter  f_read_transaction_fileW'); 

#endif 

open_flag  =  FALSE; 

printf  (”[7;7mNnWhat  is  the  name  of  the  CREATE/  QUERY  file  - — >lO;Om  "); 

/*  open  the  file  */ 

while  (open  flag  =  FALSE) 

{ 

gets  (filename); 

strcpy(dap_info_ptr->dpi_file.fi_fhame,  add_path(filler,  filename )); 
if  ((dap_info_ptr->dpi_file.fi_fid  = 

fopen  (dap_info^ptr->dpi_file.fi_fname,  "r"))  ==  NULL) 

{ 

printf  ("VnUnable  to  open  file  %sNn”,  dap_info_ptr->dpi_file.fi_fname); 


170 


/*ring_the_bellO;*/ 

printf  ("Please  reenter  valid  filenameNn"); 
printf  ("[7;7m"); 

printf  ("VnWhat  is  the  name  of  the  CREATE/QUERY  file  — >|'0:0m  "); 
}  /*  end  if  */ 
else 

open_flag  =  TRUE; 

}  /*  end  while  */ 

#ifdef  EnExFlag 

printf  ("Exit  f_read_transaction_file\n"); 

#endif 

}  I*  end  f_read_transaction_file  */ 


f_read_reciept_file(dap_info_ptr ) 

struct  dap_info  *dap_info_ptr; 

{ 

int  open_flag;  /*  boolean  flag  */ 
int  i,r«um; 

char  filcname[FNLength  +  1]; 

char  FiUer[MaxPathLen+FNLength+l]; 

/*  This  routine  opens  a  file  to  allow  a  mass  */ 

/*  dump  of  data  to  it.  */ 

#ifdef  EnExFlag 

printf  ("Enter  f_read_reciept_file\n"); 

#endif 

opcn_flag  =  FALSE; 

printf  ("\nWhat  is  the  name  of  the  receiving  file  - — >  "); 

I*  open  the  file  */ 

while  (open_flag  —  FALSE) 

{ 

gets  (filename); 

strcpy(dap_info_ptr->dpLfile.fi_fname ,  add_path(filler, filename)); 
if  ((dap_info_ptr->dpi_file.fi_fid  = 

fopen  (dap_info_ptr->dpi_file.fi_fname,  "r"))  !=  NULL) 

{ 
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printf  ("NnFile  %s  already  exists.  Overwrite?(Y/N)\n”,  dap_info_ptr- 
>dpi_file.fi_fhame); 

/*ring_the_bell();*/ 

dap_info__ptr->dap_answer  =  get_ans(&num); 

if  (dap_info_j5tr->dap_answer=='y'  II  dap_info_ptr->dap_answer=='Y') 

{ 

open_flag  =  TRUE; 

)  /*  end  if  answer  */ 
else 
{ 

fclose(dap_info_ptr->dpi_file.fi_fid); 
printf  ("Please  reenter  valid  filenameXn"); 
printf 

printf  ("\nWhat  is  the  name  of  the  receiving  file  — >  "); 

) 

}  /*  end  if  */ 
else 

open_flag  =  TRUE; 

}  /*  end  while  */ 

dap_info_ptr->dpi_file.fi_fid  = 
fopen  (dap_info_ptr->dpi_file.fi_fname,  "w"); 

#ifdef  EnExFlag 

printf  ("Exit  f_read_reciept_file\n"); 

#endif 

}  /*  end  f_read_reciept_file*/ 


f_read_file(dap_info_ptr,f_tran _info_ptr)/*  Use  this  to  read  our  queries*/ 


struct  dap_info  *dap_info_ptr; 
struct  tran_info  *f_tran_info_ptr; 

{ 


struct  temp_str_info  *new_t_ptr,  /*  ptrs  to  linked  list  of  80  col  input  */ 

*curr_t_ptr, 

*head_t_ptr,  .. 


*rd_temp_str_info(); 

struct  dap_req_info  *new_req_ptr,  /*  ptrs  to  request  list  */ 
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*curr_req_ptr, 

*dap_req_info_alloc(); 

int  i, 

first_req,  /*  boolean  flag  */ 

first_line,  /*  boolean  flag  */ 

length_so_far,  /*  length  of  a  single  transaction  */ 

EOF_flag,  I*  boolean  flag  */ 

EOR_flag;  /*  boolean  flag  */ 
char  *var_str_alloc(); 

/*  This  routine  reads  a  file  of  transactions  into  */ 

/*  the  user's  request  list  structure.  */ 

#ifdef  EnExFlag 
printf  ("Enter  f_read_file\n"); 

#endif 

first_req  =  TRUE; 

EOFJlag  =  FALSE; 

/*  create  the  request  list  from  the  inner  loop's  line  list  */ 
while  (EOF_flag  =  FALSE) 

I 

EOR_flag  =  FALSE; 
length_so_far  =  0; 
firstjine  =  TRUE; 

/*  create  a  linked  list  node  for  each  request  read.  */ 

/*  each  node  represents  a  line  of  the  request  */ 
while  (EOR  flag  ==  FALSE) 

{ 

/*  allocate  a  line  */ 

new_t_ptr  =  rd_temp_str_info  (dap_info_ptr,&EOR_flag,  &EOF_flag); 
if  (new_t_ptr  !=  NULL) 

{ 

length_so_far  =  length_so_far  +  strlen  ( new_t_ptr-  >tsi_str ) ; 
if  (firstjine) 

{ 

/*  line  is  the  First  on  the  list  so  set  appropriate  ptrs  */ 
head_t_ptr  =  new_t_ptr; 
curr_t_ptr  =  new_t_ptr; 
first.line  =  FALSE; 

}  /*  end  if  */ 


else 


{ 

/*  link  line  to  the  rest  of  the  line  list  */ 
curr_t_ptr->tsi_next  =  new_t_ptr; 
curr_t_ptr  =  new_t_ptr; 

}  /*  end  else  */ 

}  /*  end  if  */ 

1 1*  end  while  */ 

/*  check  for  no  input  situation  */ 
if  (firstjine  &&  EOF_flag ) 

{ 

printf  ("WARNING  -  number  of  requests  read  =  O.'NnNn"); 

} 

else 

{ 

/*  allocate  a  request  structure  */ 
new_req_ptr  =  dap_req_info_alloc(); 

/*  store  head_t_ptr  as  the  input  request  */ 
new_req_ptr->dpri_in_req  =  head_t_ptr; 
new_req_ptr->dpri_req  =  var_str_al!oc(length_so_far  +  1); 
new_req_ptr->dpri_req[0]  =  NO’; 
curr_t_ptr  *  head_t_ptr; 

/*  concatenate  line  list  to  form  a  request  node  */ 
while  (curr  t_ptr  !=  NULL) 

{ 

strcat  (new_req_ptr->dpri_req,  curr_t_ptr->tsi_str); 
curr_t_ptr  =  curr_t_ptr->tsi_next; 

}  f*  end  while  */ 

/*  capitalize  the  request  DEBUGGER  follows*/ 
/*printf('Vi%s\n",  new_req_ptr->dpri_req);  */ 
to_caps  (new_req_ptr-xlpri_req); 
new_req_ptr->dpri_r  eq_l  en  *  length_so_far; 
new_req_ptr->dpri_next_req  =  NULL; 
if  (first_req) 

{ 

/*  request  is  the  first  on  the  list  so  set  appropriate  ptrs  */ 
f_tran_info_ptr->ti_first_req.ri_dap_req  =  new_req_ptr; 
f_tran_info_ptr->ti_cun_req.ri_dap_req  =  new_req_ptr; 
curr_req_ptr  =  new_req_ptr; 
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firsoeq  *  FALSE; 

}  /*  end  tf  */ 
else 

{ 

/*  link  request  to  the  rest  of  the  list  */ 
curr_req_ptr->dpri_next_req  =  new_req_ptr; 
curr_req_ptr  =  new_req_ptr; 

}  I*  end  else  */ 

++f_tran_info_ptr->ti_no_req; 

}  I*  end  else  */ 

}  I*  end  while  */ 

/*  TEST  and  trouble  shooting  code  */ 

/*  ////////  to  test  what  is  read  from  file  before  sending  to  KMS  ///////////// 

f_tran_info_ptr->ti_curr_req.ri_dap_req  = 

f_tran_info_ptr->ti_first_req.ri_dap_req; 
while  (f_tran_info_ptr->ti_curr_req.ri_dap_req) 

{ 

printf("%s",  f_tran_info_ptr->ti_curr_req.ri_dap_req->dpri_req); 
f_tran_info_ptr->ti_cun_req.ri_dap_req  = 

f_tran_info_ptr->ti_curr_req.ri_dap_Teq->dpri_next_req; 

) 

///////////////////////////////////////^^^^  */ 

#ifdef  EnExFlag 
printf  ("Exit  f_read_file\n"); 

#endif 

}  /*  end  f_read_file  */ 

f_read_terminal(dap_info_ptr) 
struct  dap_info  *dap_info_ptr; 


/*  This  function  prompts  the  user  to  input  creates/queries  */ 
/*  from  their  terminal 

*/ 

#ifdef  EnExFlag 
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printf  ("Enter  f_read_terminal\n"); 

#endif 

/*  set  input  device  to  be  the  terminal  */ 

dap_info_ptr->dpi_file.fi_fid  ■  stdin; 

printf  ("VnPiease  enter  your  transactions  one  at  a  time.Nn'); 

printf  ("You  may  have  multiple  lines  per  transaction.Nn"); 

printf  ("Each  transaction  must  be  separated  by  a  line  thata"); 

printf  ("Ntonly  contains  the  character  '@@’.\n"); 

printf  ("After  the  last  transaction,  the  last  line  must  consist  onlyW); 

printf  ("Vtof  the  *$'  character  to  signal  end-of-file.\n\n\n"); 

printf  (“[7;7m  Input  the  transactions  on  the  following  lines  :[0;0m\n\n"); 

#ifdef  EnExFlag 
printf  ("Exit  f_read_terminal\n"); 

#endif 

}  f*  end  f_read_tcrminal  */ 


static  struct  temp_str_info  *rd_temp_str_info(dapJnfo_ptr,EOR_flag,  EOF  flag) 

struct  dap_info  *dap_info_ptr: 
int  *EOR_flag,  /*  boolean  flags  *! 

*EOF_flag; 


{ 


structs  */ 
int 


struct  temp_str_info  *temp_str _info_alloc(), 

*temp_ptx;  /*  ptrs  to  new  temp_str_info 

i,  j;  /*  counter  */ 


I*  This  routine  Ells  an  allocated  line  list  node  */ 
/*  and  sends  back  a  pointer  to  the  node.  */ 


#ifdef  EnExFlag 

printf  ("Enter  rd_temp_str_info\n " ) ; 
#endif 

/*  set  a  ptr  to  Ac  allocated  line  */ 
temp_ptr  *  temp_str_info_alloc(); 
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t*  now  read  in  a  line  of  input  *1 
rcadstr(dap_info_ptr->dpi_rilc.fi_fid,  temp_ptr->tsi_str); 

f*  now  eat  the  leading  blanks  in  line  */ 

for  (i  *  0;(temp_ptr->tsi_str[i]  ==  "  II  temp_j>tr->tsi_str[i]  =  \ t’);  i++) 

if  (i) 

{ 

for  (j  =  0;  temp_ptr->tsi_str(j+il  !=  >0';  j++) 
temp_ptr->tsi_str[j]  =  temp_ptr->tsi_str[j+i]; 
temp_ptr->tsi_str[j]  =  M)'; 

) 

/*  now  add  a  blank  before  N)'  */ 

for  (i  =  0;  temp_ptr->tsi_str[i]  !=  V)';  i++) 

if  (i) 

I 

temp_ptr->tsi_str[i++]  = ' 
temp_ptr->tsi_strlij  =  >0'; 

) 

temp_ptr->tsi_next  =  NULL; 
switch  (tcmp_ptr->tsi_str[0] ) 

I 

case  EORequest:  /*  check  for  end-of-request  {'@@')  */ 

*EOR_flag  =  TRUE; 

#ifdef  EnExFlag 

printf  ("Exitl  rd_temp_str_info\n"); 

#endif 

return  NULL; 
break; 

case  EOFile:  /*  check  for  end-of-file  ('$')  */ 

♦EORjflag  =  TRUE; 

♦EOFJlag  =  TRUE; 

#ifdef  EnExFlag 

printf  ("Exit2  rd_temp_str_info\n " ) ; 

#endif 

return  NULL; 
break; 

case  \)':  f*  check  for  empty  line  */ 

#ifdef  EnExFlag 

printf  ("Exit3  rd_temp_str_info\n"); 
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#endif 

return  NULL; 
break; 

case  7:  /*  check  for  comment  line  */ 
#ifdef  EnExFlag 

printf  ("Exit4  rd_temp_str  JnfoNn"); 
#endif 

return  NULL; 
break; 

default:  /*  create  or  request  line  */ 
#ifdef  EnExFlag 

printf  ("Exit5  rd_temp_str_info\n"); 
#endif 

return  temp_ptr; 
break; 

}  /*  end  switch  */ 

)  /*  end  rd_temp_str_info  */ 
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*  File  Name:  req_consLc 

*  Source:  /uAndbVgreg/CNTRL/TI/LangIF/src/Dap/Kms/rcq_const.c 

*  Utility  for  ensuring  queries  are  in  the  proper  format 

*/ 

#include  <stdio.h> 

#include  <ctype.h> 

#include  <licommdata.h> 

#include  <dap_info.h> 

#include  "flags.def ' 


f_fixup_ABDL(dap_info_ptr) 

struct  dap_info  *dap_info_ptr; 

{ 

/*  New  for  T1  in  MDBS  -  added  to  correct  request  syntax  */ 

int  i, 
req_len; 
char  *req; 

#ifdef  EnExFlag 
printfC'Enter  f_fixup_ABDL\n"); 

#endif 

reqjen  =  strlen(dap_info_ptr->dpi_abdl_tran.ti_curr_req.ri_ab_req->ari_req ): 

req  =  dapJnfo_ptr->dpi_abdl_tran.ti_cun_req.ri_ab_req->ari_req; 

l*  First,  we  must  fix  up  the  template  name  to  be  of  the  form  */ 

/*  first  letter  caps,  remainder  lower  case.  */ 

/*  Find  the  first  occurrence  of  "TEMP  ="  or  "TEMP,”  in  the  request  */ 

for  (i=0;  req[i]  !=  '='  SlSl  req[i]  != i-H-) 

i  =  i  +  3; 

for  ( ;  req[ij  !=  ’)'  &&  req[i]  !=  i++) 

req[ij « tolower(  reqfij); 


/*  Now  search  for  other  occurrences  (i.e.,  retr-common  request  or  */ 
I*  a  retrieve,  delete  or  update  with  multiple  conjunctions  */ 

for  ( ;  (i+3)  <  req_len;  i++) 
if  «req[i]  «*  T)  &&  (req[i+l]  »»  E  )  && 

(rcq[i+2]  -*  *M’)  &&  (req[i+3]  =  ’P1)) 

{ 

i  *  i  +  8; 

for  ( ;  req[i]  !*= ')' ;  i++) 
req[i]  =  tolower(  reqli]); 

} 

/*  now  fixup  attribute  values  which  are  literals  */ 

req  =  dap_info_ptr->dpi_abdl_tran.ti_cuiT_req.ri_ab_req->ari_req; 

for  (i=0;  (req[i]  !=  NO');  i++) 
if  (reqli]  —  V) 

{ 

++i; 

++i;  /*  skip  first  char,  since  it's  already  upper  case  */ 
for  ( ;  (req[i]  !=  V);  i++) 
req[i]  *  tolowcr(req[i]); 

I 

#ifdef  EnExFlag 
printf("Exit  f_fixup_ABDL\n"); 

#endif 

}  /*  end  f_fixup_ABDL  */ 
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/* 

*  File  Name:  req_execute.c 

*  Source:  /u/mdbs/greg/ChfTRL/Tl/LanglF/src/Dap/Kc/req_execuie.t 

*  This  file  contains  procedures  which  call  upon  and  check  the 
interface  with  the  backends. 

*/ 

#include  <stdio.h> 

#include  <licommdata.h> 

#include  <dap_info.h> 

#include  "flags.def ' 


dap_req_execute(dap_ptr) 

/*  This  procedure  accomplishes  the  following:  */ 

t*  (1)  Sends  the  request  to  MDBS  using  Tl_SSTrafUnit()  */ 
/*  which  is  defined  in  the  Test  Interface.  */ 

/*  (2)  Calls  dap_chk_responses_left()  to  ensure  that  all  */ 

/*  requests  have  been  processed.  */ 

/*  (3)  Calls  TI_finish()  for  post  operation  processing.  */ 


struct  dap_info  *dap_ptr; 

{ 

struct  ab_req_info*  temp; 
int  msg_type=0; 

#ifdef  EnExFlag 

printf("Enter  dap_req_execute  Nn "); 
#endif 


switch  (dap_ptr->dap_operation) 

{ 

case  ExecRetReq: 
case  ExecRetCReq: 

I*  send  request  to  MDBS  *1 

while(dap_ptr->dpi_abdl  tran.ti_curr_req.ri_ab_req  !=  NULL) 

{ 

if  (msg_type  !=  ReqsWithErr) 
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{ 

TLS$TrafUnit(dap_ptr-xlpi_curr_<ib.cdi_dbnamc, 

dap_ptr->dpi_abdl_tran.ti_curT_req.ri_ab_req->ari_req); 

/*  wait  until  request  is  completely  processed  */ 
dap_chk_respcnses_left(dap_ptr); 

Tl_finish();  /*  tidy  things  after  processing  is  completed*/ 
msg_type  =  Tl_R$Type(); 

) 

temp  =  dap_ptr->dpi_abdi_tran.ti_curr_req.ri_ab_req; 
dap_ptr->dpi_abdl_tran.ti_cun_req.ri_ab_req= 
dap_ptr->dpi_abdl_tran.ti_curr_req.ri_ab_req->ari_next_req; 
free(temp); 

) 


break; 

case  ExeclnsReq: 

/*  If  there  are  transactions  to  process  continue  */ 

while(dap_ptr->dpi_abdl_tran.ti_curr_req.ri_ab_req  !=  NULL) 

{ 

if  (msg_type  !~  ReqsWithErr) 

{ 

TI_S$TrafUnit(dap_ptr->dpi_curr_db.cdi_dbname, 

dap_ptr->dpi_abdl_tran.ti_curr_req.ri_ab_req->ari_req); 

/*  wait  until  request  is  completely  processed  */ 
dap_chk_responses_left(dap_ptr); 

TI_finish();  /*  tidy  things  after  processing  is  completed*/ 
msg_type  =  Tl_R$Type(); 

i 


temp  =  dap_ptr->dpi_abdLtran.ti_curr_req.ri_ab_req; 
dap_ptr->dpi_abdLtran.ti_curT_req.ri_ab_rcq= 
dap_ptr->dpi_abdl_tran.ti_cun_req.ri_ab_req->ari_next_req; 
free(temp); 

) 

break; 

case  ExecDelReq: 


182 


case  ExecUpdReq: 

dap_ptr->dpi_abdl_tran.ti_curr_req.ri_ab_rcq  ■ 
d»p_ptr-xJpi_abdl_cran.ti_first_rcq.ri_ab_rcq; 
while  (d^>_ptr->dpi_abdl_tran.u_cun_req.ri_ab_req) 

< 

/*  send  each  request  to  MDBS  *1 

H_S$TrafUnit(dap_ptr->dpi_cun_db.cdi_dbname, 

dap_ptr->dpi_abdl_tran.ti_curr_req.ri_ab_req->ari_req); 

/*  wait  until  request  is  completely  processed  */ 
dap_chk_responses_left(dap_ptr); 

TI_finish();  /*  tidy  things  after  processing  is  completed  */ 

temp  =  dap_ptr->dpi_abdl_tran.ti_curr_req.ri_ab_req; 
dap_ptr->dpLabdl_tran.ti_curr_req.ri_ab_req= 
dap_ptr->dpi_abdl_tran.ti_curr_req.ri_ab_req->ari_next_req; 
free(temp); 

1 

break; 

default:  /*  This  handles  any  errors  */ 

printf  ("Error  in  dap  operation  typeNn"); 
break; 

}  /*  end  switch  */ 


#ifdef  EnExFlag 

printf("Exit  dap_req_execute\n"); 
#endif 


}  /*  end  procedure  dap_req_execute  */ 


/* 

*  File  Name:  short_get.c 

*  Source:  /u/mdbs/greg/CNTRL/n/LangIF/src/Dap/Kms/short_get.c 

*  This  file  contains  procedures  for  retrieving  information  from  the 
backends,  placing  responses  into  a  linked  list  set,  and  returning 
to  the  requestor  vice  preceding  to  the  KFS. 

* 

*/ 

#include  <stdio.h> 

#include  <string.h> 

♦include  <ctype.h> 

♦include  <licommdata.h> 

♦ifndef  DAPLEX JNFO 
♦include  <dap_info.h> 

♦include  "flags.def ' 

♦endif 


short_term_get(dapJnfo_ptr,  query ) 


struct  dap_info  *dap_info_ptr; 
char  *query; 


{ 


struct  temp_str_info  *value, 

♦temp,  *temp2, 
*temp_str_info_alloc() ; 


int  ■ 

OddMark  -  TRUE; 

int 

msg_type, 

done, 

char 

i; 

♦response; 

/*  values  for  these  two  depends  on  the  defines  in  tstint.def  (CNTRL/TI)  */ 
char  request!  1002],  /*  Added  request  length  */ 
en_msg[200]; 

char  function[lnputCols]; 

struct  Reqld  rid;  /*  Defined  in  licommdata.h  */ 


♦ifdef  EnExFlag 
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printfO'Enter  short_term_getSn '  ’ ) ; 
#endif 


if  (dap_info_ptr->dpi_kc_data  !=  NULL) 

( 

value  *  dap_info_ptr->dpi_kc_data->tsi_next; 

/*  Free  up  any  previously  used  response  set  spaces  */ 
while  (value  !*  NULL) 

{ 

temp  «  value->tsi_next; 

free(value); 

value  =  temp; 

} 

firee(dap_info_ptr->dpi_kc_data); 

} 

/*  Start  with  a  clean  slate  */ 
temp*NULL; 
value=NULL; 

TI_S$TrafUnit(dap_info_ptr->dpi_cuiT_db.cdi_dbname, query); 
response  =  dap_inf o_ptr-  >dpi_kf s_d  ata.  kf si_dap .  kd  i_re  spon  se ; 

done  =  FALSE; 

while  (!done)/*Not  all  responses  for  the  current  request  have  been  received*/ 

{ 

TI_R$Message();/*receive  message  from  MBDS*/ 

msg_type  =  TI_R$Type();  /*  get  the  message  type  of  the  received  message*/ 

switch(msg_type)  /*  Is  the  response  correct  or  are  there  errors?  */ 

{ 

case  CH_ReqRes:  /*  The  response  is  correct  */ 

TI_R$ReqRes(&ridjesponse);  /*  Receive  the  results  */ 

done  *  f_chk_if_last_response(dap_info_ptr);  /*A re  we  done  */ 
-H-response;/*  Skip  initial  [  */ 

temp2=dap_info_ptr->dap_query; 

while  (temp2!«NULL) 

{ 

strttik(temp2->tsLstr,"r); 

temp2«temp2->tsi_next; 
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} 

tcmp2«dap_info_ptr->dap_qucry; 

strcpy(function,temp2->tsi_str); 


while(*rcsponsc  !=  CSignal  &&  strcmp(function,responsc)) 

{ 

response+=(strlen(response)+ 1 ); 

} 


while(*response  !=  CSignal) 

{ 

if  (OddMark) 

{ 

if(chcckJist(temp2jesponse)) 

{ 

response+=(strlen(response)+ 1 ); 

if  (value—NULL  II  Ichcck  list(value, response))/*  Don't  give  repeat  values  */ 

{ 

value  =  tetnp_str_info_alloc(); 

value->tsi_next=temp; 

temp=value; 

) 

OddMark  =  FALSE; 

}/*End  if  check  list*/ 
else 

/*  Else  we  skip  the  attribute  name  AND  value  we  don't  want*/ 

{ 

response+=(strlen(response)+ 1 ); 
responsc+=(strlen(response)+ 1 ); 

}/*End  not  if  check  list*/ 

}/*End  id  OddMark*/ 
else  /*  Not  OddMark  */ 

if  (value*»NULL  II  !check_list(value,response)) 
strcpy(value->tsi_str  response); 
response+*(strlen(response)+ 1 ); 

OddMark  =  TRUE; 

}/*End  not  OddMark  */ 

}/*  End  while  not  CSignal  */ 
tweak; 

case  ReqsWithErr: 

TI_R$EiTorMessage(request,en_msg); 
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TLErrRes_output(request,err_msg); 

return  0; 

break; 

default: 

printfC’Dlegal  msg_type  =  %d  received.Vn",  msg_type); 
break; 

}  /*  End  switch  */ 

}  /*  End  while  not  done  */ 

/*  Reset  the  External  from  MBDS  */ 
dap_info_ptr->dpi_kc_data  =  value; 

#ifdef  EnExFlag 
printfC’Enter  short_term_get\n"); 

#endif 
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